Willkommen |
|
myGully |
|
Links |
|
Forum |
|
|
|
|
29.12.14, 08:41
|
#1
|
Anfänger
Registriert seit: Mar 2010
Beiträge: 4
Bedankt: 0
|
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
|
|
|
30.12.14, 08:50
|
#2
|
Newbie
Registriert seit: Jun 2010
Beiträge: 57
Bedankt: 10
|
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
|
|
|
31.12.14, 00:05
|
#3
|
Anfänger
Registriert seit: Aug 2011
Beiträge: 8
Bedankt: 3
|
Mal so probiert:
Code:
ShellExecute(Handle,'Open', PChar('ping.exe'),PChar('-t -l ' + Edit1.Text),nil,SW_SHOWNORMAL);
?
|
|
|
31.12.14, 12:09
|
#4
|
Anfänger
Registriert seit: Mar 2010
Beiträge: 4
Bedankt: 0
|
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.
|
|
|
31.12.14, 16:07
|
#5
|
Newbie
Registriert seit: Jun 2010
Beiträge: 57
Bedankt: 10
|
Hast du schon mal geschaut, was drin steh, wenn du dir das
auf der Konsole ausgeben lässt?
|
|
|
29.01.15, 10:47
|
#6
|
Erfahrener Newbie
Registriert seit: Nov 2010
Beiträge: 136
Bedankt: 2.413
|
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;
|
|
|
Forumregeln
|
Du kannst keine neue Themen eröffnen
Du kannst keine Antworten verfassen
Du kannst keine Anhänge posten
Du kannst nicht deine Beiträge editieren
HTML-Code ist Aus.
|
|
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:14 Uhr.
().
|