[no0B1234]

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShellExecute(Handle,'Open', PChar('ping.exe'),PChar(Edit1.Text)
 ,nil,SW_SHOWNORMAL);
end;

würde hier gerne noch -t -l einbauen. Kann mir jemand helfen ?

THX

[Madddin_89]

Hi,

ich würde mir ein neues "PChar" erstellen und dein "-t -l" einlesen.
Anschließend gibt es sicherlich in Delphi eine Möglichkeit noch das "Edit1.Text" anzuhängen.
(beim c++ - String heißt es append).

Hoffe es hilft

[Ice weasel]

Mal so probiert:

ShellExecute(Handle,'Open', PChar('ping.exe'),PChar('-t -l ' + Edit1.Text),nil,SW_SHOWNORMAL);

?

[no0B1234]

Hab ich auch schon Versucht. Klappt leider nicht.

Sollte irgendwie so aussehn.

(Edit1.Text) + ('-l -t')

Leider sind meine Delphi Kenntnise auch eher bescheiden.

[Madddin_89]

Hast du schon mal geschaut, was drin steh, wenn du dir das
auf der Konsole ausgeben lässt?

[Athabasca]

So geht's mit xe6:

uses
  WinAPI.ShellAPI

...

procedure TForm1.Button1Click(Sender: TObject);
var
  Dummy: String;
begin
  Dummy := '-t -l ' + Edit1.Text;
  ShellExecute(Handle, 'open', 'ping', PChar(Dummy), nil, SW_SHOWNORMAL);
end;