Как переназначить вывод в файл для консольной программы, запускаемой по CreateProcess

var
  StartupInfo: TStartupInfo;
  ProcessInformation: TProcessInformation;
begin
  GetStartupInfo(StartupInfo);
  with StartupInfo do
  begin
    wShowWindow := SW_HIDE; //не показывать окно
    dwFlags := STARTF_USESHOWWINDOW;
  end;

// для примера будем запускать [c:\program files\Borland\Delphi5\Bin]grep.exe с ключом '?'
  Win32Check(CreateProcess(nil, 'command.com /c  grep.exe ? > MyStdOut.txt',
    nil, nil, FALSE, CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcessInformation));

// ждем пока наш процесс отработает
  WaitForSingleObject(ProcInfo.hProcess, INFINITE);

  Win32Check(CloseHandle(ProcInfo.hProcess);
end;

var
  ProcInfo: TProcessInformation;
  StartupInfo: TStartupInfo;
  hOut, hOutDup: THandle;
begin
  // Создаем файл в который и будем переназначать StdOut
  // Например, с такими настройками, вы можете их изменить под свои нужды
  hOut := CreateFile('MyStdOut.txt', GENERIC_WRITE, 0, nil,
    CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  if (hOut = INVALID_HANDLE_VALUE) then
    RaiseLastWin32Error;
end;

// эта рукоятка нам уже не нужна, хотя вы можете ее
// использовать для своих целей
Win32Check(CloseHandle(hOut));

GetStartupInfo(StartupInfo);
with StartupInfo do
begin
  wShowWindow := SW_HIDE; // не показывать окно
  dwFlags := dwFlags or STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  hStdOutput := hOutDup; // присваиваем рукоятку на свой файл
end;

Win32Check(CreateProcess(nil, 'grep.exe ?', nil, nil, TRUE,
  CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcInfo));

// ждем пока наш процесс отработает
WaitForSingleObject(ProcInfo.hProcess, INFINITE);

Win32Check(CloseHandle(ProcInfo.hProcess));

// если вы больше ничего не хотите делать с файлом, в который
// перенаправили StdOut, то закроем его
Win32Check(CloseHandle(hOutDup));
end;

var
  ProcInfo: TProcessInformation;
  StartupInfo: TStartupInfo;
  SecAtrtrs: TSecurityAttributes;
  hOut: THandle;
begin
  with SecAtrtrs do
  begin
    nLength := SizeOf(TSecurityAttributes);
    lpSecurityDescriptor := nil;
    bInheritHandle := true; // ВОТ ОНО !!! Наша рукоятка будет НАСЛЕДУЕМОЙ
  end;

  // Создаем файл в который и будем переназначать StdOut
  // Например, с такими настройками, вы можете их изменить под свои нужды
  hOut := CreateFile('MyStdOut.txt', GENERIC_WRITE, 0, @SecAtrtrs,
    CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  if (hOut = INVALID_HANDLE_VALUE) then
    RaiseLastWin32Error;

  GetStartupInfo(StartupInfo);
  with StartupInfo do
  begin
    wShowWindow := SW_HIDE; // не показывать окно
    dwFlags := dwFlags or STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
    hStdOutput := hOutDup; // присваиваем рукоятку на свой файл
  end;

  // для примера будем запускать
  // [c:\program files\Borland\Delphi5\Bin]grep.exe с ключом '?'
  // Вызов CreateProcess с флагом bInheritHandles = TRUE !!!
  Win32Check(CreateProcess(nil, 'grep.exe ?', nil, nil, TRUE,
    CREATE_NEW_CONSOLE, nil, nil, StartupInfo, ProcInfo));

  // ждем пока наш процесс отработает
  WaitForSingleObject(ProcInfo.hProcess, INFINITE);

  Win32Check(CloseHandle(ProcInfo.hProcess));

  // если вы больше ничего не хотите делать с файлом, в который
  // перенаправили StdOut, то закроем его
  Win32Check(CloseHandle(hOut));
end;