[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; 


[Energy of Fire]

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
  stdOut: THandle;
  startUpInfo: TStartUpInfo;
  ProcInfo: TProcessInformation;
  tmpSec: TSecurityAttributes; 
  Path,dirName,exeName,cmdLine: string;
begin
  Path:='123.txt';
//  Можно поставленную тобоой задачу решить этой строкой
//  WinExec(PChar('cmd /k dir>'+Path),SW_SHOWNORMAL);
//  вот что просишь ты ...
  FillChar(tmpSec, SizeOf(tmpSec), #0); 
  tmpSec.nLength := SizeOf(tmpSec);
  tmpSec.bInheritHandle := True;
  stdOut :=CreateFile(PChar(Path),  Generic_Write, File_Share_Write, @tmpsec, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  FillChar(ProcInfo, sizeof(TProcessInformation), #0);
  FillChar(startUpInfo, SizeOf(TStartUpInfo), #0);
  startUpInfo.cb := SizeOf(TStartUpInfo);
  startUpInfo.hStdOutput := stdOut;
  startUpInfo.wShowWindow := SW_SHOW;
  startUpInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  dirName:='C:\';
  exeName:='cmd.exe';
  cmdLine:='/k dir';
  if CreateProcess(nil, PChar(exeName + ' ' + cmdLine), nil, nil, True,NORMAL_PRIORITY_CLASS, nil, PChar(dirName), startUpInfo, procInfo) then
  begin
   WaitForSingleObject(procInfo.hProcess, Infinite);
   CloseHandle(ProcInfo.hThread);
   CloseHandle(ProcInfo.hProcess);
   closeHandle(stdOut);
  end;
end;