Răsfoiți Sursa

FIX: Process running state

Alexander Koblov 3 ani în urmă
părinte
comite
e2aecba435
1 a modificat fișierele cu 2 adăugiri și 1 ștergeri
  1. 2 1
      src/un_process.pas

+ 2 - 1
src/un_process.pas

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