..: رقص دانش :..

باز کردن اپلت های کنترل پنل

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;