Registriert seit: 18. Aug 2003
Ort: Monheim am Rhein
153 Beiträge
RAD-Studio 2009 Pro
|
Re: Konsole auslesen
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
|
|
Zitat
|