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
SILAHKAN DOWNLOAD FILE DI BAWAH INI

http://www.ziddu.com/download/11890077/appletcp.zip.html