Функция 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;