عبدالله الجميعي

ضع زر جديد والصق الكود التالي بداخله ونفذ type TVolumeRec = record case Integer of 0: (LongVolume: Longint); 1: (LeftVolume, RightVolume : Word); end; const DeviceIndex=5 {0:Wave 1:MIDI 2:CDAudio 3:Line-In 4:Microphone 5:Master 6:PC-loudspeaker} procedure SetV…

ضع زر جديد والصق الكود التالي بداخله ونفذ للحصول على دليل Temp نفذ var lng: DWORD; thePath: string; begin SetLength(thePath, MAX_PATH); lng := GetTempPath(MAX_PATH, PChar(thePath)); SetLength(thePath, lng); end;

ضع زر جديد والصق الكود التالي بداخله ونفذ تعطيل ايقونات سطح المكتب EnableWindow(FindWindowEx(FindWindow ('Progman', nil), HWND(0), 'ShellDll_DefView', nil), FALSE); تفعيل ايقونات سطح المكتب EnableWindow(FindWindowEx(FindWindow ('Progman', nil), HWND(0), 'Shell…

ضع زر جديد والصق الكود التالي بداخله ونفذ إطفاء الشاشة SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); تشغيل الشاشة SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

ضع زر جديد والصق الكود التالي بداخله ونفذ VAR h: THandle; begin h := CreateEllipticRgn(40, 40, 300, 200); SetWindowRgn(Handle,h,TRUE);