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 :thumb:

[Olli]

ShellExecute und SYSDM.CPL ausführen ...

[Assun]

:shock:

Also

Delphi-Quellcode:

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:

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]

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

also ich habs nun so gemacht aber das geht auch nich :(

Delphi-Quellcode:

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 :oops:

Zitat:

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

:shock: :wiejetzt:

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. :wall:

[Assun]

ahaaaa :coder2: jetzt hab ichs geschnallt ;-)

so gehts wunderbar :

Delphi-Quellcode:

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

[Olli]

Zitat:

Zitat von Assun

Delphi-Quellcode:

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:

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 :oops:

Warum benutzt du "/" statt "\"?

Zitat:

Zitat von Assun

Zitat:

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

:shock: :wiejetzt:

Genauso wie du es inzwischen gemacht hast ...

Zitat:

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