Добрый день. Подскажите плиз, такая проблема: при компиляции кода из 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;