madi

مشكور اخي العزيز سم وحمد لله على سلامتك .. وشكرا

ياريت توضح بمتال .. بلغة c وشكرا

مرحبا بك اخي العزيز سم , والله طولت الغيبة , والحقيقة افتقدناك و افتقدنا مواضيعك الشيقة . ان شا الله دائما كل الاعضاء بخير و متواجدين معا في هدا المنتدي الجميل . وشكرا للاخ مازن وكل العام والجميع بخير شكرا(*)

لمن لا يعرف TiltelBar يجرب البرنامج التالي , unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormResize(Sender: TObject); procedure FormPaint(Sender: TObject); private pr…

غير اسم الملف النفيدي لملف تعرفه انت . استخدم use shellapi procedure TForm1.Button1Click(Sender: TObject); var Icon : TIcon; FileInfo : SHFILEINFO; begin Icon := TIcon.Create; SHGetFileInfo(PChar('d:3.exe'),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON); icon.handle …

ممكن تجرب هالفكرة ممكن تفيدك ;) procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Form1.color:=Image1.canvas.pixels[x,y]; end; وشكرا (*)

واخيرا :) :D شكرا لك اخي العزيز محمد على مجهودك الطيب . شكرا (*)

وجدت هدا الكود الجميل procedure TForm1.Button1Click(Sender: TObject); var MyHand: HWND; MyDc: HDC; MyCanvas: TCanvas; TransText: string; begin TransText:='الفريق العربي للبرمجة'; MyHand := GetDesktopWindow; MyDc := GetWindowDC(MyHand); MyCanvas := TCanvas.Crea…

وهده طريقة للتحويل بالعكس من BITMAp الى JPG procedure TForm1.Button1Click(Sender: TObject); var jpgImg: TJPEGImage; begin jpgImg := TJPEGImage.Create; jpgImg.Assign(Image1.Picture.Bitmap); jpgImg.SaveToFile('c:Th.jpg'); end; وشكرا(*)

وهده طريقة للتحويل من صيغة jpg الى bitmab procedure TForm1.BitBtn1Click(Sender: TObject); var jpeg : TJPEGImage; bmp : TBitmap; begin FileName:='c:tt.jpg'; jpeg:= TJPEGImage.Create; try jpeg.LoadFromFile(FileName ); jpeg.CompressionQuality := 100; {Default Val…

جرب هده الكمبوننت http://www.delphi32.com/vcl/4704/download,xid,4704.asp وشكرا(*)

عزيزي محمد احسن حل هو انك تاخد نسخة من البرنامج بالكامل و تضعه , او ان تبعت لي ملف الفور على الايمايل فقط ملف الفورم الدي بامتداد pas . وتكون فضلت علي ووفيت .. ومجددا شكرا :o لتعاونك (f)

:'( :'( بعد ان نجحت بفضل اخي العزيز محمد في القضاء على دلك ERROR اللعين , و لكن الفرحة ما تمت :'( , بعد ان تنفد البرنامج بحمد الله و بركاته , وضغطت على الزر و انتضر انطفا الجهاز , اجد امامي هده المرة مصيبة جديدة وهي اخر جملة وهي fResult:= InitiateSystemShutdow…

حجرب و اقولك . مشكوور اخي العزيز .

مشكور اخي العزيز , و الله يقويك ............. وشكرا(g)

;) مشكور اي العزيز جربت اغير النوع دون فائدة , وياريت احد من الاخوة الاعضاء يجرب الكود الى اعطاه اخي محمود ويقولنا النتيجة . وهدا الكود الي انا كتبته في البرامج . var Form1: TForm1; tkp1: TTokenPrivileges; implementation {$R *.DFM} procedure TForm1.Button1Clic…

و الله يا اخي العزيز انا بستخدم دلفي 5 , ووندوز 2000 لكن رسالة الخطاء تقول ان There is no overloaded version of 'AdjustTokenPrivileges' that can be called with these arguments وهدا يعني انه يوجد بارامترات ناقصة , او زائدة , وانا حاولت استخدم هده الدالة من قبل …

مشكور الف شكر خي العزيز . جربت الكود لكن الجملة التالية ما رضت تشتغل AdjustTokenPrivileges(TokenHandle, False, tkp, SizeOf(TTokenPrivileges), tkp ,L); ورسالة الخطا كما يلي There is no overloaded version of 'AdjustTokenPrivileges' that can be called with these …

سلام ... كل العام و انتم بخير ,,, كيف يمكن اغلاق الجهاز في وندوز 2000 و XP وشكرا

كل العام وانت بخير و جميع الاخوة بخير شكرا جزيلا اخي العزيز على هده المعلومات المفيدة , والله يجزيك كل خير . شكرا