* Check running

git-svn-id: trunk@26707 -

packages/fcl-process/src/unix/process.inc

@@ -42,7 +42,7 @@ end;
 Function TProcess.GetExitCode : Integer;
 
 begin
-  if wifexited(FExitCode) then
+  if (Not Running) and wifexited(FExitCode) then
     Result:=wexitstatus(FExitCode)
   else
     Result:=0;