diff options
Diffstat (limited to 'packages/fcl-process')
| -rw-r--r-- | packages/fcl-process/src/unix/process.inc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/fcl-process/src/unix/process.inc b/packages/fcl-process/src/unix/process.inc index 70cf4f5451..5e10c63111 100644 --- a/packages/fcl-process/src/unix/process.inc +++ b/packages/fcl-process/src/unix/process.inc @@ -371,7 +371,8 @@ Var R : Dword; begin - fexitcode:=waitprocess(handle); + if FRunning then + fexitcode:=waitprocess(handle); Result:=(fexitcode>=0); FRunning:=False; end; |