uses ShellApi; 
 
procedure opencpl(cpl: string); 
begin 
  shellexecute(application.handle, 'open', 'rundll32.exe', 
    pchar('shell32.dll,Control_RunDLL' + #32 + cpl), nil, sw_shownormal); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var s: string; 
begin 
  s := 'TIMEDATE.CPL'; 
{ 
'MAIN.CPL @0'   // Eigenschaften von Maus 
'MAIN.CPL @1'   // Eigenschaften von Tastatur 
'MAIN.CPL @2'   // Drucker      *** nicht für XP (siehe unten) *** 
'MAIN.CPL @3'   // Schriften    *** nicht für XP (siehe unten) *** 
'TIMEDATE.CPL'  // Eigenschaften von Datum/Uhrzeit 
'APPWIZ.CPL'    // Software 
'DESK.CPL'      // Eigenschaften von Anzeige 
'INETCPL.CPL'   // Eigenschaften von Internet 
'INTL.CPL'      // Eigenschaften von Ländereinstellung 
'MMSYS.CPL'     // Eigenschaft von Multimedia 
'MODEM.CPL'     // Eigenschaft von Modems 
'NETCPL.CPL'    // Netzwerk     *** nicht für XP (siehe unten) *** 
'PASSWORD.CPL'  // Eigenschaften von Kennwörter 
'STICPL.CPL'    // Eigenschaften von Scanner und Kameras 
'SYSDM.CPL'     // Eigenschaften von System 
'TELEPHON.CPL'  // Wählparameter 
'JOY.CPL'       // Gamecontroller 
'ACCESS.CPL'    // Eigenschaften von Eingabehilfe 
} 
  opencpl(s); 
end; 
 
//--------------------------------------------------

// Getestet mit D4 unter XP

 
procedure openNTcontrol(c: string); 
begin 
  shellexecute(application.handle, 'open', 'control', 
    pchar(c), nil, sw_shownormal); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
var s: string; 
begin 
  s := 'printers';       
{ 
'printers'  // Drucker 
'fonts'     // Schriften 
'ncpa.cpl'  // Netzwerk 
} 
  openNTcontrol(s); 
end;