Shellexecute + Parameter starten

[SyntaxXx]

Also und zwar habe ich jetzt ein Fenster wo ein button drauf ist.
Wenn ich auf diesen button klicke, öffne ich per Shellexecute die "CMD" (Konsole).

Jetzt öchte ich direkt auch noch einen Text dazus chreiben,w elcher sofort augeführt werden soll.
Jetzt dachte ich antürlich, mann könnte das per Parameter machen.

Also habe ich geschaut und bin nun auf folgendes Ergebnis gekommen:

Delphi-Quellcode:

procedure TForm2.Button7Click(Sender: TObject);
begin
ShellExecute(handle, nil, PWideChar('C:\Windows\system32\cmd.exe'), PWideChar('netstat -a'), nil, SW_Show);
end;

Wie ihr sehen könnt wollte ich, das sofort "netstat -a" ausgeführt wird.

Doch leider wenn ich das so starte, öffnet sich nur die Konsole.


Jetzt wollte ich fragen was dara falsch ist.

[himitsu]

Woher soll die CMD.exe denn wissen wie sie diese Parameter interpretieren soll?
Sie denkt natürlich erstmal die Parameter sind an sie geichtet und nicht daß sie es ausführen soll.

Tipp: "cmd /?" anschauen und nachsehn wie du CMD deinen Wunsch richtig mitteilst

"cmd" öffnen und darin "cmd /?" ausführen

[SyntaxXx]

Vielen Dank, habs hin bekommen.

Hier noch für die anderen, die vielleicht das selbe Problem haben:

ShellExecute(handle, nil, PWideChar('C:\Windows\system32\cmd.exe'), PWideChar('cmd /K netstat -a'), nil, SW_Show);

[DeddyH]

Das "cmd" ist in den Parametern aber überflüssig.

[HeikoAdams]

Warum so umständlich und nicht gleich
ShellExecute(handle, nil, PWideChar('C:\Windows\system32\netstat.exe'), PWideChar('-a'), nil, SW_Show); Wobei man nie vergessen sollte: fest codierte Pfade sind pöhse

[DeddyH]

Vermutlich, weil bei den meisten Konsolenbefehlen sich die Konsole bei direktem Aufruf nach Abarbeitung wieder schließt