From 1a1c9f426bb5b8c12cf4e01c365b49ab9e878339 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 9 Sep 2004 13:47:38 +0000
Subject: [PATCH] + Patch from Vincent Snijders to correctly handle
 PeekExitStatus

---
 fcl/inc/process.pp    | 7 +++++--
 fcl/win32/process.inc | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/fcl/inc/process.pp b/fcl/inc/process.pp
index 5ed5a42732..4e9b15d214 100644
--- a/fcl/inc/process.pp
+++ b/fcl/inc/process.pp
@@ -85,7 +85,7 @@ Type
     Procedure SetWindowWidth (Value : Cardinal);
     Procedure CreateStreams(InHandle,OutHandle,Errhandle : Longint);
     procedure SetApplicationname(const Value: String);
-    procedure SetPRocessOptions(const Value: TProcessOptions);
+    procedure SetProcessOptions(const Value: TProcessOptions);
     procedure SetActive(const Value: Boolean);
     procedure SetEnvironment(const Value: TStrings);
     function  PeekExitStatus: Boolean;
@@ -307,7 +307,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.22  2004-09-08 18:17:23  michael
+  Revision 1.23  2004-09-09 13:47:38  michael
+  + Patch from Vincent Snijders to correctly handle PeekExitStatus
+
+  Revision 1.22  2004/09/08 18:17:23  michael
   + Removed extra handle on process.
 
   Revision 1.21  2004/08/12 14:33:55  michael
diff --git a/fcl/win32/process.inc b/fcl/win32/process.inc
index ddc8f359f8..eac21c8775 100644
--- a/fcl/win32/process.inc
+++ b/fcl/win32/process.inc
@@ -21,7 +21,7 @@ Function TProcess.PeekExitStatus : Boolean;
 
 begin
   GetExitCodeProcess(ProcessHandle,FExitCode);
-  Result:=(FExitCode=Still_Active);
+  Result:=(FExitCode<>Still_Active);
 end;
 
 Function GetStartupFlags (P : TProcess): Cardinal;