Mega Code Archive

 

Categories / Delphi / System

 

Open an applet from the control panel

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;