Преглед изворни кода

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

git-svn-id: trunk@13290 -
joost пре 16 година
родитељ
комит
69ac9cb44e
1 измењених фајлова са 3 додато и 0 уклоњено
  1. 3 0
      packages/fcl-base/src/daemonapp.pp

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

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