Open an applet from the control panel

Author: Thomas Stutz

function RunControlPanelApplet(sAppletFileName: string): Integer;

begin

Result := WinExec(PChar('rundll32.exe shell32.dll,' +

'Control_RunDLL ' + sAppletFileName),

SW_SHOWNORMAL);

end;

{

Filenames of some Applets:

Dateinamen einiger Applets:

Access.cpl : Accessibility Properties

Appwiz.cpl : Add/Remove Programs Properties

Desk.cpl : Display Properties

Inetcpl.cpl : Internet Properties

Intl.cpl : Regional Settings Properties

Joy.cpl : Joystick Properties

Main.cpl : Mouse Properties

Mmsys.cpl : Multimedia Properties

Modem.cpl : Modems Properties

Netcpl.cpl : Network Properties

Odbccp32.cpl : 32 bit ODBC Data Source Administrator

Password.cpl : Password Properties

Sysdm.cpl : System Properties

Themes.cpl : Desktop Themes

timedate.cpl : Time/Date Properties

Wgpocpl.cpl : MS Workgroup Post Office

}

{

Example to show the "Display Properties" Applet:

Beispiel, um das Applet "Eingenschaften von Anzeige" anzuzeigen:

}

procedure TForm1.Button1Click(Sender: TObject);

begin

RunControlPanelApplet('Desk.cpl');

end;