Add the following lines to the end of a used unit:
Code: Select all
{$IFDEF madExcept}
procedure LayoutExceptHandler(const exceptIntf : IMEException; var handled : boolean);
begin
exceptIntf.BugReportHeader.Insert(0,'Current caption', Form1.caption ); //add custom information to the bug report
exceptIntf.BugReportHeader['user name'] := ''; // save privacy
exceptIntf.BugReportHeader['registered owner'] := ''; // save privacy
exceptIntf.BugReportHeader['computer name'] := ''; // save privacy
end;
initialization
RegisterExceptionHandler(LayoutExceptHandler, stDontSync);
{$ENDIF}
end.
I hope this helps,
Alex