* Fix bug ID #31750

git-svn-id: trunk@36705 -

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

@@ -188,14 +188,21 @@ function TDaemonController.ReportStatus: Boolean;
 
 Var
   S : String;
+  doLog : Boolean;
 
 begin
   S:='';
+  DoLog:=True;
   If Assigned(FDaemon) then
     With FDaemon do
+      begin
       S:=Format(SDaemonStatus,[Definition.DisplayName,
                                CurrentStatusNames[Status]]);
-  Application.Log(etInfo,S);
+      if Assigned(Definition) then
+        doLog:=Definition.LogStatusReport;
+      end;  
+  if DoLog then    
+    Application.Log(etInfo,S);
 end;
 
 { ---------------------------------------------------------------------

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

@@ -577,9 +577,7 @@ begin
     Exit;
     end;
   DD.LogStatusReport:=True;
-{$ifndef svcdebug}
   If DD.LogStatusReport then
-{$endif svcdebug}
     With FDaemon do
       begin
       S:=Format(SDaemonStatus,[Definition.DisplayName, CurrentStatusNames[Status]]);
@@ -619,6 +617,7 @@ end;
 
 Procedure SysInitDaemonApp;
 
+
 begin
 end;