Menjalankan Applet Pada Control Panel

Untuk menjalankan berbagai applet pada control panel, Anda dapat menggunakan salah satu fungsi dari Windows API yaitu WinExec.

function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer;

1. Lihat keterangan fungsi WinExec di sini.
2.  
3. Misalnya Anda ingin membuka Add/Remove Program maka Anda harus menuliskan code seperti ini :
4. <pre lang="Delphi">procedure TForm1.Button1Click(Sender: TObject);
5. begin
6.      WinExec ('C:\WINDOWS\CONTROL.EXE appwiz.cpl, Add/Remove Programs,1', SW_NORMAL);
7. end;

Selain itu Anda juga bisa membuat fungsi sendiri untuk menjalankan applet pada control panel.

function RunApplet(const AppletName: string): integer;

1. begin
2.      Result := WinExec(PChar('rundll32.exe shell32.dll,' + 'Control_RunDLL ' + AppletName), SW_SHOWNORMAL);
3. end;

Contoh penggunaan : RunApplet('appwiz.cpl');

Anda bisa mengganti appwiz.cpl di atas dengan applet yang ingin Anda buka. Nama file applet beserta keterangannya:

access.cpl = Accessibility Options
appwiz.cpl = Add/Remove Program
desk.cpl = Display Properties
intl.cpl = Regional Settings
joy.cpl = Joystick
main.cpl =Mouse
mmsys.cpl = Multimedia
modem.cpl = Modems Properties
netcpl.cpl = Network Properties
password.cpl = Password Settings
sysdm.cpl = System Properties
timedate.cpl = Time/Date Settings

Download Contoh

Sumber : klik-kanan

Posted in: Trik Komputer