Открыть Control Panel

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.Button1Click(Sender: TObject);
var
  buffer: array [0..1023] of char;
begin
  GetWindowsDirectory(buffer, 1024);
  WinExec(PChar(buffer + '\Control'),
    sw_ShowNormal);
  WinExec(PChar(buffer + '\Control PRINTERS'),
    sw_ShowNormal);
  WinExec(PChar(buffer + '\Control TIMEDATE.CPL'),
    sw_ShowNormal );
  WinExec(PChar(buffer + '\Control MOUSE'),
    sw_ShowNormal);
end;