myGully.com - Anfänger Delphi

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - Anfänger Delphi (https://mygully.com/showthread.php?t=3562082)

no0B1234

29.12.14 08:41

Anfänger Delphi

Code:

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

30.12.14 08:50

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

31.12.14 00:05

Mal so probiert:

Code:

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

no0B1234

31.12.14 12:09

Hab ich auch schon Versucht. Klappt leider nicht.

Sollte irgendwie so aussehn.

Code:

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

Leider sind meine Delphi Kenntnise auch eher bescheiden.

Madddin_89

31.12.14 16:07

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

Athabasca

29.01.15 10:47

So geht's mit xe6:

Code:

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;

Alle Zeitangaben in WEZ +1. Es ist jetzt 14:42 Uhr.