Konsole auslesen

[p0w3r5tr34m3r]

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