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

Code:

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;

Code:

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;

Code:

Win32Check(DuplicateHandle(GetCurrentProcess, hOut,

  GetCurrentProcess, @hOutDup, 0, TRUE, DUPLICATE_SAME_ACCESS));

Code:

Win32Check(SetHandleInformation (hOut, HANDLE_FLAG_INHERIT,

  HANDLE_FLAG_INHERIT);

Code:

// эта рукоятка нам уже не нужна, хотя вы можете ее

// использовать для своих целей

Win32Check(CloseHandle(hOut));

GetStartupInfo(StartupInfo);

with StartupInfo do

begin

wShowWindow := SW_HIDE; // не показывать окно

dwFlags := dwFlags or STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;

hStdOutput := hOutDup; // присваиваем рукоятку на свой файл

end;

Code:

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;

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;