Na, dann wollen wir mal nich so sein
Also, zuerst machst du dir ne Prozedur, in der die Fehler behandelt und gespeichert werden. Hier mal eine Idee:
Delphi-Quellcode:
procedure TForm1.AppException(Sender: TObject; E:
Exception);
var
FName:
String;
List: TStrings;
begin
FName := ExtractFilePath(ParamStr(0)) + '
Errors.log';
List := TStringList.Create;
try
with List
do
begin
if FileExists(FName)
then
LoadFromFile(FName);
Add('
[' + DateToStr(Now) + '
/ ' + TimeToStr(Now) + '
]' + '
' + E.
Message);
SaveToFile(FName);
end;
finally
FreeAndNil(List);
Application.ShowException(E);
Application.Terminate;
end;
end;
Wichtig: die Parameter müssen so bleiben!
Dann weist du deine Prozedur dem OnException-Ereignis zu:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;
Und schon fertig
Mfg