Fehlermeldung des Dienstes in die Log-Datei

[nahpets]

Hallo,

Du meinst dann vermutlich sowas:

Delphi-Quellcode:

Try
  ...
Except
  on e : Exception do begin
    AssignFile(f,'LogFileName'); 
    If FileExists('LogFileName') Then Append(f) Else ReWrite(f); 
    WriteLn(f,DateToStr(Now) + ' ' + TimeToStr(Now) + ' ' + e.Message); 
    CloseFile(f);
  end;
end;