Перенаправление стандартного ввода и вывода

Code:

function TChildProc.ReadStrFromChild(Timeout: Integer): string;

var

i: Integer;

dwRead, BufSize, DesBufSize: DWORD;

chBuf: PChar;

Res: Boolean;

begin

try

   BufSize := 0;

   New(chBuf);

   repeat

     for i := 0 to 9 do

     begin

       Res := PeekNamedPipe(FChildStdoutRd, nil, 0, nil, @DesBufSize, nil);

       Res := Res and (DesBufSize > 0);

       if Res then

         Break;

       Sleep(Round(Timeout / 10));

     end;

     if Res then

     begin

       if DesBufSize > BufSize then

       begin

         FreeMem(chBuf);

         GetMem(chBuf, DesBufSize);

         BufSize := DesBufSize;

       end;

       Res := ReadFile(FChildStdoutRd, chBuf^, BufSize, dwRead, nil);

       Result := Result + LeftStr(chBuf, dwRead);

     end;

   until not Res;

except

   Result := 'Read Err';

end;

end;

Code:

with TChildProc.Create(ReadIni(TagParams.Values['file'], FPage),

TagParams.Values['cmd']) do

try

   WriteToChild(TagParams.Text);

   ReplaceText := ReadStrFromChild;

finally

   Free;

end;