🚀 go-pugleaf

Hello!

I need to start a DOS-program and redirect its output to a file from within
a Delphi application.
After some trying I created the following code.
Everything works fine... except for the fact that it stops working as soon
as I try to actually redirect the output to a file...   :-(

Can anybody help me with that?

Mike




procedure TForm1.StartDosProg;
var
  StartupInfo: TStartupInfo;         // for CreateProcess
  ProcessInfo: TProcessInformation;  // for CreateProcess
begin
  // Initialize StartupInfo
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := Sizeof(TStartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;
  // Start DOS-prog
  if CreateProcess(nil, PChar('fc'), nil, nil, false, NORMAL_PRIORITY_CLASS,
nil, nil, StartupInfo, ProcessInfo) then   // this works
  //if CreateProcess(nil, PChar('fc >fc.log'), nil, nil, false,
NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then  // this
works not :-(   why?
  begin
    // Program started: Wait till finished...
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    CloseHandle(ProcessInfo.hProcess);
  end
  else
  begin
    // Error starting program
    //Application.MessageBox(PChar(sGetErrorString(GetLastError)), 'Error',
MB_OK);
  end;
end;