[ros.pro]

Здравствуйте, уважаемые форумчане!

Пишу программку, создающую процесс cmd.exe и перенаправляющую вывод в текстовый файл(который создается выше).

Так вот, вроде все работает, ошибок не выдает, но файл пустой... И еще, консоль, почему-то открывается и сразу закрывается...

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
  stdOut: THandle;
  startUpInfo: TStartUpInfo;
  ProcInfo: TProcessInformation;
begin
  stdOut := CreateFile('123.txt', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);

  FillChar(startUpInfo, SizeOf(TStartUpInfo), 0);
  startUpInfo.cb := SizeOf(TStartUpInfo);
  startUpInfo.hStdOutput := stdOut;
  startUpInfo.wShowWindow := SW_SHOW;
  startUpInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;

  CreateProcess(Pchar('C:\Windows\system32\cmd.exe'), PChar('/k dir'), nil, nil, true, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcInfo);
  closeHandle(stdOut);
  CloseHandle(ProcInfo.hThread);
  CloseHandle(ProcInfo.hProcess);
end;