* Check running

git-svn-id: trunk@26708 -

packages/fcl-process/src/process.pp

@@ -286,7 +286,10 @@ end;
 Function TProcess.GetExitCode : Integer;
 
 begin
-  Result:=GetExitStatus;
+  if Not Running then
+    Result:=GetExitStatus
+  else
+    Result:=0
 end;
 {$ENDIF}