Procházet zdrojové kódy

FIX: Process running state

Alexander Koblov před 3 roky
rodič
revize
f6e99c46c6
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      src/un_process.pas

+ 1 - 1
src/un_process.pas

@@ -135,7 +135,7 @@ end;
 
 
 procedure TExProcess.Stop;
 procedure TExProcess.Stop;
 begin
 begin
-  FStop:= FProcess.Terminate(-1);
+  FStop:= (not FProcess.Running) or (FProcess.Terminate(-1));
 end;
 end;
 
 
 procedure TExProcess.SetCmdLine(CommandLine: String);
 procedure TExProcess.SetCmdLine(CommandLine: String);