D-Master

أخي العزيز حتى تخرج قيمة الاسكي لحرف أو رقم معين استخدم Ord('A') = قيمتها بالاسكي مجرد مثال بسيط...اذا اردت المزيد من المساعدة...انا في الخدمة

Uses Psapi, tlhelp32; procedure TForm1.CreateWin9xProcessList(List : TStringList); var hSnapShot : THandle; ProcInfo : TProcessEntry32; begin if List = nil then Exit; hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); if (hSnapShot <> THandle(-1)) t…

put this code in the main form oncreate event if application.exename <> 'example.exe' then begin application.exename := 'example.exe'; end;

لا شكر على واجب

You need a popupmenu and a speedbutton; now in the speedbutton onclick event type this; procedure Tfrec.SpeedButton1Click(Sender: TObject); var x,y,d : integer; begin if d <> 1 then begin x := speedbutton1.Left; y := speedbutton1.Top; popupmenu1.visible := tru…