* Fixed backgrounding (must be done before creating controllers, bug ID #23445

git-svn-id: trunk@26697 -

packages/fcl-extra/src/unix/daemonapp.inc

@@ -94,7 +94,8 @@ end;
 
 procedure TCustomDaemonApplication.SysStartRunDaemons;
 begin
-
+  if Application.HasOption('b','background') then
+    DaemonizeProgram;
 end;
 
 procedure TCustomDaemonApplication.SysEndRunDaemons;
@@ -104,8 +105,6 @@ Var
   DC : TDaemonController;
   
 begin
-  if Application.HasOption('b','background') then
-    DaemonizeProgram;
   For I:=ComponentCount-1 downto 0 do
     If Components[i] is TDaemoncontroller then
       begin