Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#6

AW: MadExcept - Zusatzinformationen

  Alt 13. Okt 2021, 14:09
Alternativ kannst du auch einen Handler installieren und dort eine zusätzliche Section mitsamt Inhalt einfügen:
Delphi-Quellcode:
procedure TForm1.madExceptHandler(const exceptIntf: IMEException; var handled: boolean);
begin
  exceptIntf.BugReportSections['MyInfo'] := 'This is my info.';
end;
Der Handler muss natürlich auch registriert werden:
Delphi-Quellcode:
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterExceptionHandler(madExceptHandler);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterExceptionHandler(madExceptHandler, stDontSync);
end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat