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

* WaitOnExit now returns a boolean

Browse Source 
git-svn-id: trunk@5577 -
This commit is contained in:
michael 2006-12-11 22:06:56 +00:00
parent e4fb3f71d3
commit 8fa80c73d8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/wince/process.inc
View File

@ -213,11 +213,15 @@ begin
WaitOnExit;
end;
Function TProcess.WaitOnExit : Dword;
Function TProcess.WaitOnExit : Boolean;
Var
R : DWord;
begin
Result:=WaitForSingleObject (FProcessHandle,Infinite);
If Result<>Wait_Failed then
R:=WaitForSingleObject (FProcessHandle,Infinite);
Result:=R<>Wait_Failed;
If R then
GetExitStatus;
FRunning:=False;
end;