indoxz[B]log

Untuk memanggil Perintah Control Panel

  WinExec(Pchar('rundll32 shell32,Control_RunDLL'),sw_Show);

Untuk memanggil Perintah Select Program

 WinExec(Pchar('rundll32 shell32,OpenAs_RunDLL'),sw_Show);

Untuk memanggil Perintah About (windows)

 WinExec(Pchar('rundll32 shell32,ShellAboutA Info-Box'),sw_Show);

Untuk memanggil Perintah Control Panel

 WinExec(Pchar('rundll32 shell32,Control_RunDLL desk.cpl'),sw_Show);

Untuk memanggil Perintah Explorer

 WinExec(Pchar('rundll32 shell,shellexecute Explorer'),sw_Show);

Untuk memanggil Perintah ShutDown

 WinExec(Pchar('rundll32 shell32,SHExitWindowsEx 1'),sw_Show);

Untuk memanggil Perintah Restart Computer

 WinExec(Pchar('rundll32 shell32,SHExitWindowsEx 2'),sw_Show);

Untuk memanggil Perintah Version IE

 function GetIEVersion(Key: string): string;
var
 Reg: TRegistry;
begin
 Reg:=TRegistry.Create;
 try
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\Microsoft\Internet Explorer', False);
   try
    Result:=Reg.ReadString(Key);
   except
    Result:='';
   end;
   Reg.CloseKey;
 finally
  Reg.Free;
 end;
end;

ShowMessage('Internet Explorer - Version: '+GetIEVersion('Version')[1]+'.'
                                  +GetIEVersion('Version')[3]);
 ShowMessage('Internet Explorer - Version: '+GetIEVersion('Version'));
  // <major version>,<minor version>,<build number>,<sub-build number>

Untuk memanggil Perintah Win Close

 SendMessage(FindWindow('Progman','Program Manager'),
                                                  WM_CLOSE, 0, 0);

Untuk memanggil Perintah Disable Monitor

 WinExec(Pchar('rundll32 user,disableoemlayer'),sw_Show);

Untuk memanggil Perintah Sleep Mode

 SetSystemPowerState(true,true);

Untuk menggunakan code diatas :

1. Masukkan 1 Button
2. Double Klik Button tsb, lalu Copykan 1 Code diatas

Note : 1 Code 1 Button

Mungkin itu saja, sekian dan terima kasih :) , kalau ada yang terbaru saya akan update lagi..!!