Browse Source

* Terminate application when service failed to start, to avoid endless waiting on Linux

git-svn-id: trunk@13290 -
joost 16 years ago
parent
commit
69ac9cb44e
1 changed files with 3 additions and 0 deletions
  1. 3 0
      packages/fcl-base/src/daemonapp.pp

+ 3 - 0
packages/fcl-base/src/daemonapp.pp

@@ -1143,7 +1143,10 @@ begin
       end;
       end;
     end
     end
   else
   else
+    begin
     FDaemon.Status:=csStopped;
     FDaemon.Status:=csStopped;
+    Application.Terminate;
+    end;
 end;
 end;