paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed PeekExitStatus

Browse Source
This commit is contained in:
michael 2004-08-13 09:46:10 +00:00
parent 9fad381d29
commit 29bae36989
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fcl/win32/process.inc
View File

@ -20,7 +20,8 @@ end;
Function TProcess.PeekExitStatus : Boolean; Function TProcess.PeekExitStatus : Boolean;
begin begin
Result:=GetExitStatus=Still_Active; GetExitCodeProcess(Handle,FExitCode);
Result:=(FExitCode=Still_Active);
end; end;
Function TProcess.GetHandle : THandle; Function TProcess.GetHandle : THandle;