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;