mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 13:13:46 +02:00
32 lines
524 B
ObjectPascal
32 lines
524 B
ObjectPascal
program testproc;
|
|
|
|
uses classes,process;
|
|
|
|
Const BufSize = 1024;
|
|
|
|
{$ifdef unix}
|
|
TheProgram = 'doecho';
|
|
{$else}
|
|
TheProgram = 'doecho.exe';
|
|
{$endif}
|
|
|
|
|
|
Var S : TProcess;
|
|
Buf : Array[1..BUFSIZE] of char;
|
|
I,Count : longint;
|
|
|
|
begin
|
|
S:=TProcess.Create(Nil);
|
|
S.Commandline:=theprogram;
|
|
S.Options:=[poUsePipes,poNoConsole];
|
|
S.execute;
|
|
Repeat
|
|
Count:=s.output.read(buf,BufSize);
|
|
// reverse print for fun.
|
|
For I:=Count downto 1 do
|
|
write(buf[i]);
|
|
until Count=0;
|
|
writeln;
|
|
S.Free;
|
|
end.
|