[Mishko]

Добрый день. Подскажите плиз, такая проблема: при компиляции кода из Delphi 2010 в XE5 возникает ошибка.

if( not GetExitCodeProcess( ProcessInfo.hProcess, pExitCode^ ) )then begin pExitCode^ := 0; end;

В модуле Winapi.Windows объявлена

function GetExitCodeProcess(hProcess: THandle; var pExitCode: PDWORD): BOOL; stdcall;


Функция GetExitCodeProcess вызывается из функции ниже

Код:

function WaitProcess( FileName:AnsiString; CommandLine:AnsiString = ''; CurrentDir:AnsiString = ''; pExitCode:PDWORD = nil ):BOOLEAN;
var
    StartupInfo : _STARTUPINFOA;
    ProcessInfo : TProcessInformation;
    WaitRes     : DWORD;
    Msg         : TMsg;
    Done        : BOOLEAN;
begin
...
end;

Ее объявление вроде верно
function WaitProcess( FileName:AnsiString; CommandLine:AnsiString = ''; CurrentDir:AnsiString = ''; pExitCode:PDWORD = nil ):BOOLEAN;

[NumLock]

недавно был подобный вопрос у кого-то...

[Mishko]

Функция GetExitCodeProcess вызывается из функции ниже

Код:

function WaitProcess( FileName:AnsiString; CommandLine:AnsiString = ''; CurrentDir:AnsiString = ''; pExitCode:PDWORD = nil ):BOOLEAN;
var
    StartupInfo : _STARTUPINFOA;
    ProcessInfo : TProcessInformation;
    WaitRes     : DWORD;
    Msg         : TMsg;
    Done        : BOOLEAN;
begin
...
end;

Админ: Пользуемся тегами для оформления кода, иначе последуют санкции.

Ее объявление вроде верно
function WaitProcess( FileName:AnsiString; CommandLine:AnsiString = ''; CurrentDir:AnsiString = ''; pExitCode:PDWORD = nil ):BOOLEAN;

[NumLock]

^ не нужно

[Mishko]

Пробывал убрать "^", та же ошибка

[NumLock]

не там убрал

[Mishko]

Убрал в этой строке
if not GetExitCodeProcess( ProcessInfo.hProcess, pExitCode^ ), ошибка осталась

[NumLock]

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

В модуле Winapi.Windows объявлена

function GetExitCodeProcess(hProcess: THandle; var pExitCode: PDWORD): BOOL; stdcall;

ты нас обманул:

Код:

function GetExitCodeProcess(hProcess: THandle; var lpExitCode: DWORD): BOOL; stdcall;
{$EXTERNALSYM GetExitCodeProcess}

>>

Код:

var
  ExitCode: DWORD;
begin
  if not GetExitCodeProcess(GetCurrentProcess, ExitCode) then RaiseLastOSError;
end;

[Mishko]

Спасибо))!....компилится! Будет ли работать