WaitForSingleObject в Delphi 2009

[Хамяг]

CreateProcess(nil,'u.exe', nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo);
WaitForSingleObject(ProcessInfo.hProcess, infinite);

Компиляция проходит успешно, но при работе программы вылетает ошибка:



В delphi 7 всё было нормально. В delphi 2009 стала появляться эта ошибка. В чём же дело?

[DelDev]

Здесь ошибка не в WaitForSingleObject, а в CreateProcess.

Дело в том, что при вызове CreateProcess в Delphi 7 фактически вызывался ANSI вариант этой функции - CreateProcessA, а в Delphi 2009 вызывается Юникод-вариант CreateProcessW, который ведет себя несколько иначе:

The Unicode version of this function, CreateProcessW, can modify the contents of this string. Therefore, this parameter cannot be a pointer to read-only memory (such as a const variable or a literal string). If this parameter is a constant string, the function may cause an access violation.

Источник - MSDN

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

[JTG]

Может ZeroMemory(@StartupInfo, sizeof(StartupInfo)); нет?

[DelDev]

не понял вопроса ...

[rpy3uH]

попробуй перед CreateProcess сделать это
ZeroMemory(@StartupInfo, sizeof(StartupInfo))

[DelDev]

Полностью работоспособная процедура в ранних версиях Delphi, но не работающая в Delphi 2009, по причине аналогичной проблеме у автора поста.

function RunDosAndWait(const CommandLine: string; OutSrings: TStrings): boolean;
const
  BuffSize = 1024;
var
  SecurityAttributes: TSecurityAttributes;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  tRead, cWrite, dwRead, dwAvail: Cardinal;
  Buffer: PChar;
  ExitCode: Cardinal;
begin
  Result := false;
  Application.ProcessMessages;
  Buffer := AllocMem(BuffSize);
  OutSrings.Clear;
  ZeroMemory(@SecurityAttributes, SizeOf(TSecurityAttributes));
  SecurityAttributes.nLength := SizeOf(TSecurityAttributes);
  SecurityAttributes.bInheritHandle := true;
  SecurityAttributes.lpSecurityDescriptor := nil;
  if not CreatePipe(tRead, cWrite, @SecurityAttributes, 0) then
    raise Exception.Create('Pipe not Created');
  ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
  with StartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
    wShowWindow := SW_HIDE;
    hStdError := cWrite;
  end;
  if CreateProcess(nil, PChar(CommandLine), nil, nil, true, 0, nil, nil, StartupInfo, ProcessInfo) then
  begin
    repeat
      Application.ProcessMessages;
      PeekNamedPipe(tRead, Buffer, BuffSize, @dwRead, @dwAvail, nil);
      while (dwRead > 0) do
      begin
        ZeroMemory(Buffer, BuffSize);
        ReadFile(tRead, Buffer[0], BuffSize, dwRead, nil);
        if dwRead > 0 then
        begin
          OutSrings.Text := OutSrings.Text + Buffer;
          PeekNamedPipe(tRead, Buffer, BuffSize, @dwRead, @dwAvail, nil);
        end;
      end;
      GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end
  else
    Raise Exception.Create('Ошибка создания процесса');
end;

при изменении описания на

function RunDosAndWait(VAR CommandLine: string; OutSrings: TStrings): boolean;

Проблема исчезает, истинную причину я описал выше

[hg_04]

столкнулся с этой же проблемой но изменение на вар не помогло, ошибка так и появляеться. выше приведенный код не работает

[rpy3uH]

вывод: Delphi 2009 не рулит.

[hg_04]

рулит только сначала нужно понять как рулить

[Showy]

Рулит!
Просто надо правильно преобразовывать:

...
if CreateProcess(nil, PWCHAR(WideString(CommandLine)), nil, nil, true, 0, nil, nil, StartupInfo, ProcessInfo) then
...

и всё будет работать.