Service erstellen...

[sakura]

Versuche mal folgende Änderung.

Delphi-Quellcode:

procedure TLogtray.TimerEvent(Sender:TObject); 
var 
  anz_neu: Integer; 
  List: TSTringList; 
BEGIN
  TRY 
    anz_neu:= getLogNumber('System'); 
    if anz_neu >= (anz_alt+10) 
    then 
    TRY
      mytimer.Enabled:= false; 
      getEventLog('Application', 10, List); 
      List.SavetoFile('C:\Application.txt'); 
      getEventLog('System', 10, List); 
      List.SavetoFile('C:\System.txt'); 
      getEventLog('Security', 10, List); 
      List.SavetoFile('C:\Security.txt'); 
      anz_alt:= anz_neu; 
    FINALLY
      mytimer.Enabled:= true; 
    END; 
  EXCEPT
    // evtl. loggen, aber EXCEPT stehen lassem
  END;
END;

......