Fix range check

This commit is contained in:
Martin 2023-12-18 01:00:02 +01:00
parent c06bf85045
commit 89fb28262d

View File

@ -391,7 +391,7 @@ Function TProcess.GetExitStatus : Integer;
begin
GetRunning;
Result:=FExitCode;
Result:=Integer(FExitCode);
end;
{$IFNDEF OS_HASEXITCODE}