Thema: Delphi Konsole auslesen

Einzelnen Beitrag anzeigen

Benutzerbild von p0w3r5tr34m3r
p0w3r5tr34m3r

Registriert seit: 18. Aug 2003
Ort: Monheim am Rhein
153 Beiträge
 
RAD-Studio 2009 Pro
 
#5

Re: Konsole auslesen

  Alt 3. Apr 2004, 16:48
hi,

also ich würde das wie folgt machen:

Delphi-Quellcode:
uses
  {...},ShellApi;

var
 target : string;
begin
 target := edit1.text;
 ShellExecute(handle,'open','cmd.exe',PChar('/C ping '+ip+' > pingout.txt'),nil,nil,SW_HIDE);
 sleep(5000);
 ShellExecute(handle,'open','cmd.exe',PChar('/C FindStr.exe /C:"Minimum" pingout.txt > find.txt'),nil,nil,SW_HIDE);
 sleep(5000);
 Memo1.Lines.LoadFromFile(extractfilepath(application.exename)+'find.txt');
 deletefile(extractfilepath(application.exename)+'find.txt');
 deletefile(extractfilepath(application.exename)+'pingout.txt');
end;
MfG Powerstreamer
Florian Cülter
  Mit Zitat antworten Zitat