Michaël Van Canneyt преди 1 месец
родител
ревизия
62cad88c85
променени са 1 файла, в които са добавени 1 реда и са изтрити 5 реда
  1. 1 5
      packages/fcl-extra/src/daemonapp.pp

+ 1 - 5
packages/fcl-extra/src/daemonapp.pp

@@ -481,11 +481,7 @@ Var
 Procedure StartLog;
 
 begin
-{$if defined(win32) or defined(win64)}
-  Assign(FL,'c:\service.log');
-{$else}
-  Assign(FL,'/tmp/service.log');
-{$endif}
+  Assign(FL,GetTempDir+'service.log');
   Rewrite(FL);
   InitCriticalSection(LCS);
   DebugLog('Start logging');