myGully.com

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.

Powered by vBulletin® (Deutsch)
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.