alex208210 » 11.07.2010 19:56:00
program prrocess;
{$mode objfpc}{$H+}
uses classes,process;
Const
TheProgram = 'ls -a';
Var
S : TProcess;
Buf, ss : ansistring;
Count : longint;
begin
S:=TProcess.Create(Nil);
S.Commandline:=theprogram;
S.Options:=[poUsePipes,poNoConsole];
S.execute;
SetLength(buf, 1000);
Repeat
Count:=s.output.read(buf[1], length(buf));
ss:=ss + Copy(buf, 1, Count);
until Count=0;
writeln(ss);
S.Free;
writeln('finished Ok.');
end.
по этому примеру будет выводиться информация только для одной команды.. как вывести содержимое консоли например если параметр theprogram будет равен "ifconfig | grep eth0" ?