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;

Lihat keterangan fungsi WinExec di sini.

Misalnya Anda ingin membuka Add/Remove Program maka Anda harus menuliskan code seperti ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
     WinExec ('C:\WINDOWS\CONTROL.EXE appwiz.cpl, Add/Remove Programs,1', SW_NORMAL);
end;

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

function RunApplet(const AppletName: string): integer;
begin
     Result := WinExec(PChar('rundll32.exe shell32.dll,' + 'Control_RunDLL ' + AppletName), SW_SHOWNORMAL);
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