Вывод из консоли в Memo

[hotcooler17]

Есть проблема. Имеется консольная прога и нужно написать GUI + анализ результатов работы проги. Прога(консольная) есть в исходниках, однако вмешательство в ее код нежелательно. Но у проги есть недочет: в случае, когда вводимые данные(имя файла) содержат ошибку, или результат поиска по файлу не дал результатов - прога ничего не выводит!

procedure RunDosInMemo(CmdLine:String;Output:TStrings);
 const
   ReadBuffer = 2400;
 var
  Security       : TSecurityAttributes;
  ReadPipe,WritePipe  : THandle;
  start        : TStartUpInfo;
  ProcessInfo     : TProcessInformation;
  Buffer        : Pchar;
  BytesRead      : DWord;
  Apprunning      : DWord;
 begin
  Screen.Cursor:=CrHourGlass;
  With Security do begin
  nlength        := SizeOf(TSecurityAttributes);
  binherithandle    := true;
  lpsecuritydescriptor := nil;
  end;
  if Createpipe (ReadPipe, WritePipe,
         @Security, 0) then begin
  Buffer  := AllocMem(ReadBuffer + 1);
  FillChar(Start,Sizeof(Start),#0);
  start.cb      := SizeOf(start);
  start.hStdOutput  := WritePipe;
  start.hStdInput  := ReadPipe;
  start.dwFlags   := STARTF_USESTDHANDLES +
             STARTF_USESHOWWINDOW;
  start.wShowWindow := SW_HIDE;
  if CreateProcess(nil,
      PChar(CmdLine),
      @Security,
      @Security,
      true,
      NORMAL_PRIORITY_CLASS,
      nil,
      nil,
      start,
      ProcessInfo)
  then
  begin
   repeat
   Apprunning := WaitForSingleObject
          (ProcessInfo.hProcess,100);
    ReadFile(ReadPipe,Buffer[0],
       ReadBuffer,BytesRead,nil);
    Buffer[BytesRead]:= #0;
    OemToAnsi(Buffer,Buffer);
    Output.Text := Output.Text + String(Buffer);
   Application.ProcessMessages;
   until (Apprunning <> WAIT_TIMEOUT);
  end;
  FreeMem(Buffer);
  CloseHandle(ProcessInfo.hProcess);
  CloseHandle(ProcessInfo.hThread);
  CloseHandle(ReadPipe);
  CloseHandle(WritePipe);
  end;
  Screen.Cursor:=CrDefault;
 end;

Соответственно в этом месте программа встает. Как быть?

[maxionans]

Либо вместо CreatePipe используй CreateNamedPipe с флагом FILE_FLAG_OVERLAPPED и дальше работай с ним через ReadFileEx/WriteFileEx (предварительно придется тщательно ознакомиться, что такое Overlapped mode у всех этих функций), либо выноси код обработки данных в поток и используй таймаут для определения того, завис поток или нет (если завис - значит данных нет). Второй способ гораздо проще.

[hotcooler17]

Честно говоря, не очень дружу с потоками. Как передать параметры в поток и забрать назад?

[hotcooler17]

Так, я чуть разобрался и понял, что вынести в отдельный поток не удастся. Вернее это возможно, но тогда функция будет полна бесконечных циклов с sleep =) А вот с Named Pipe что-то не получается - не удается его создать. Можно пример именно для перенаправления вывода консоли, если не затруднит?
===================
А нет, все получилось. Все, проблему решил.