cmd.exe, biar ada gambarnya :v
Windows command/CMD adalah untuk memanggil perintah-perintah dari CMD dengan menggunakan ini tidak perlu ribet2 tulis bahasa CMD lgi cukup dengan mengklik tombol jadi deh ,disini saya share cara memanggilnya lewat Delphi7.
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 :
- Masukkan 1 Button
- 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..!!
