1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
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.
|
