[Alexo]

Код:

  FillChar(ProcessInformation, SizeOf(TProcessInformation), #0);
  FillChar(StartUpInfo, SizeOf(TStartUpInfo), #0);

  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartUpInfo.wShowWindow := SW_HIDE;
  StartUpInfo.cb := SizeOf(TStartUpInfo);

  if not CreateProcess(nil, s, nil, nil, false, 0, nil, nil,  StartupInfo, ProcessInformation) then
    Exit;

Данный код, прекрасно себя чувствует в Windows XP и вызывает Access Vailation в Windows Vista

[Alexo]

Проблема оказалась в Delphi 2009

[Validation]

Сообщение от Alexo

Проблема оказалась в Delphi 2009

Alexo, добрый день! Столкнулся с проблемой обработки CreateProcess на Win 64-bit. Код написан на Д2009 и скомпилен на Win32. Скажите, как решить сею незадачу? И помог ли приведенный выше код? Вот кусок моего кода:

Код:

function ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export; 
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
begin
   CmdLine :=Filename+ Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end;
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;