Как вывести результат работы консоли в Memo?

Code:

function ExecuteFile(FileName,StdInput: string;

                    TimeOut: integer;

                    var StdOutput:string) : boolean;

label Error;

type

TPipeHandles = (IN_WRITE,  IN_READ,

                 OUT_WRITE, OUT_READ,

                 ERR_WRITE, ERR_READ);

type

TPipeArray = array [TPipeHandles] of THandle;

var

i         : integer;

ph        : TPipeHandles;

sa        : TSecurityAttributes;

Pipes     : TPipeArray;

StartInf  : TStartupInfo;

ProcInf   : TProcessInformation;

Buf       : array[0..1024] of byte;

TimeStart : TDateTime;

function ReadOutput : string;

var

i : integer;

s : string;

BytesRead : longint;

begin

Result := '';

repeat

   Buf[0]:=26;

   WriteFile(Pipes[OUT_WRITE],Buf,1,BytesRead,nil);

   if ReadFile(Pipes[OUT_READ],Buf,1024,BytesRead,nil) then

   begin

     if BytesRead>0 then

     begin

       buf[BytesRead]:=0;

       s := StrPas(@Buf[0]);

       i := Pos(#26,s);

       if i>0 then s := copy(s,1,i-1);

       Result := Result + s;

     end;

   end;

   if BytesRead1024 then break;

until false;

end;

begin

Result := false;

for ph := Low(TPipeHandles) to High(TPipeHandles) do

   Pipes[ph] := INVALID_HANDLE_VALUE;

// Создаем пайпы

sa.nLength := sizeof(sa);

sa.bInheritHandle := TRUE;

sa.lpSecurityDescriptor := nil;

if not CreatePipe(Pipes[IN_READ],Pipes[IN_WRITE], @sa, 0 ) then

   goto Error;

if not CreatePipe(Pipes[OUT_READ],Pipes[OUT_WRITE], @sa, 0 ) then

   goto Error;

if not CreatePipe(Pipes[ERR_READ],Pipes[ERR_WRITE], @sa, 0 ) then

   goto Error;

// Пишем StdIn

StrPCopy(@Buf[0],stdInput+^Z);

WriteFile(Pipes[IN_WRITE],Buf,Length(stdInput),i,nil);

// Хендл записи в StdIn надо закрыть - иначе выполняемая программа

// может не прочитать или прочитать не весь StdIn.

CloseHandle(Pipes[IN_WRITE]);

Pipes[IN_WRITE] := INVALID_HANDLE_VALUE;

FillChar(StartInf,sizeof(TStartupInfo),0);

StartInf.cb := sizeof(TStartupInfo);

StartInf.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;

StartInf.wShowWindow := SW_SHOW; // SW_HIDE если надо запустить невидимо

StartInf.hStdInput := Pipes[IN_READ];

StartInf.hStdOutput := Pipes[OUT_WRITE];

StartInf.hStdError := Pipes[ERR_WRITE];

if not CreateProcess(nil, PChar(FileName), nil,

                      nil, True, NORMAL_PRIORITY_CLASS,

                      nil, nil, StartInf, ProcInf) then goto Error;

TimeStart := Now;

repeat

   Application.ProcessMessages;

   i := WaitForSingleObject(ProcInf.hProcess,100);

   if i = WAIT_OBJECT_0 then break;

   if (Now-TimeStart)*SecsPerDay>TimeOut then break;

until false;

if iWAIT_OBJECT_0 then goto Error;

StdOutput := ReadOutput;

for ph := Low(TPipeHandles) to High(TPipeHandles) do

   if Pipes[ph]INVALID_HANDLE_VALUE then

     CloseHandle(Pipes[ph]);

CloseHandle(ProcInf.hProcess);

CloseHandle(ProcInf.hThread);

Result := true;

Exit;

Error:

if ProcInf.hProcessINVALID_HANDLE_VALUE then

begin

   CloseHandle(ProcInf.hThread);

   i := WaitForSingleObject(ProcInf.hProcess, 1000);

   CloseHandle(ProcInf.hProcess);

   if iWAIT_OBJECT_0 then

   begin

     ProcInf.hProcess := OpenProcess(PROCESS_TERMINATE,

                                     FALSE,

                                     ProcInf.dwProcessId);

     if ProcInf.hProcess  0 then

     begin

       TerminateProcess(ProcInf.hProcess, 0);

       CloseHandle(ProcInf.hProcess);

     end;

   end;

end;

for ph := Low(TPipeHandles) to High(TPipeHandles) do

   if Pipes[ph]INVALID_HANDLE_VALUE then

     CloseHandle(Pipes[ph]);

end;