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

Code:

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;