mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-02-04 08:34:49 +01:00
28 lines
503 B
ObjectPascal
28 lines
503 B
ObjectPascal
program testproc;
|
|
|
|
uses classes,process;
|
|
|
|
Const BufSize = 1024;
|
|
|
|
{$ifdef linux}
|
|
TheProgram = 'doecho';
|
|
{$else}
|
|
TheProgram = 'doecho.exe';
|
|
{$endif}
|
|
|
|
|
|
Var S : TProcess;
|
|
Buf : Array[1..BUFSIZE] of char;
|
|
I,Count : longint;
|
|
|
|
begin
|
|
S:=TProcess.Create(theprogram,[poExecuteOnCreate,poUsePipes,poNoConsole]);
|
|
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. |