From 8fa80c73d8faa8c960f39ab85b18a3ce8936af15 Mon Sep 17 00:00:00 2001 From: michael Date: Mon, 11 Dec 2006 22:06:56 +0000 Subject: [PATCH] * WaitOnExit now returns a boolean git-svn-id: trunk@5577 - --- fcl/wince/process.inc | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/fcl/wince/process.inc b/fcl/wince/process.inc index 2b0797d808..6209834fc4 100644 --- a/fcl/wince/process.inc +++ b/fcl/wince/process.inc @@ -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;