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.