Systemeigenschaften-Dialog anzeigen

[Assun]

Hi !

Wisst ihr wie ich den Systemeigenschaften-Dialog aus meinem Delphiprogramm heraus aufrufen kann ?

Also ich meine den Dialog, der angezeigt wird wenn man mit der rechten Maustaste auf Arbeitsplatz und dann auf Eigenschaften klickt

Vielen vielen Dank

[Olli]

ShellExecute und SYSDM.CPL ausführen ...

[Assun]

Also

ShellExecute(Handle,'open','SYSDM.CPL','',nil,SW_Show); bewirkt bei mir gar nix !

[Olli]

Dann benutze einfach die control.exe und übergib den Namen der CPL als Parameter. Alternativ benutzt man die Forensuche

[Assun]

mal ne andere Frage :

warum geht das nicht ?

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var Pfad : String;
begin
Pfad := (s + '/cmd.exe'); // s = C:/Windows/system32
ShellExecute(Handle,'open', PChar(Pfad) ,'',nil,SW_Show);
end;

Normalerweise sollte doch mit diesem Code cmd.exe gestartet werden oder ?

denn mit diesem code blitzt cmd.exe nur kurz auf und schliesst sich dann wieder

[Olli]

Zitat von Assun:

mal ne andere Frage :

Neue Frage neuer Thread.

Warum benutzt du Forward Slashes? Wieso nicht "cmd.exe /K" ... (/K auch gern als Parameter)?

[Assun]

irgendwie hab ich das mit ShellExecute ja noch nie so richtig gepeilt

also ich habs nun so gemacht aber das geht auch nich

ShellExecute(Application.Handle,'open',PChar('%sysdir%/SYSDM.CPL'),Nil, Nil, SW_NORMAL); es MUSS doch aber irgendwie so über shellexecute gehen !

// Edit :

Zitat:

Warum benutzt du Forward Slashes? Wieso nicht "cmd.exe /K" ... (/K auch gern als Parameter)?

peil kein halben was das bedeuten soll

Zitat:

Dann benutze einfach die control.exe und übergib den Namen der CPL als Parameter

Zitat:

Alternativ benutzt man die Forensuche.

hab ich, aber nix gefunden.

[S2B]

Les dir nochmal Olli's Beitrag durch, da steht doch die Lösung drin.

[Assun]

ahaaaa jetzt hab ichs geschnallt

so gehts wunderbar :

ShellExecute(Application.Handle,'open',PChar('control.exe'),'SYSDM.CPL', Nil, SW_NORMAL);

[Olli]

Zitat von Assun:

ShellExecute(Application.Handle,'open',PChar('%sysdir%/SYSDM.CPL'),Nil, Nil, SW_NORMAL);

Shellexecute wird dir deine Umgebungsvariable nicht erweitern. Das mußt du vorher selber machen.

Zitat von Assun:

Zitat:

Warum benutzt du Forward Slashes? Wieso nicht "cmd.exe /K" ... (/K auch gern als Parameter)?

peil kein halben was das bedeuten soll

Warum benutzt du "/" statt "\"?

Zitat von Assun:

Zitat:

Dann benutze einfach die control.exe und übergib den Namen der CPL als Parameter

Genauso wie du es inzwischen gemacht hast ...

Zitat von Assun:

Zitat:

Alternativ benutzt man die Forensuche.

hab ich, aber nix gefunden.

Scherz?
systemsteuerung cpl starten
cpl rundll
cpl ... und da speziell:
http://www.delphipraxis.net/internal...ct.php?t=24808
http://www.delphipraxis.net/internal...ct.php?t=51973
http://www.delphipraxis.net/internal...ct.php?t=60477