uses
EException, // for TEurekaExceptionInfo
ELogBuilder, // for RegisterEventCustomDataRequest and TBaseLogBuilder
// EModules, // for CurrentEurekaLogOptions
ESysInfo; // for GetFileVersion
procedure AddMoreInfo(const ACustom: Pointer; AExceptionInfo: TEurekaExceptionInfo; ALogBuilder: TBaseLogBuilder; ADataFields: TStrings; var ACallNextHandler: Boolean);
begin
ADataFields.Values['Application Version'] := GetFileVersion(ParamStr(0));
ADataFields.Values['Application License'] := {$IFDEF ENTERPRISE}'ENT'{$ELSE}'STD'{$ENDIF};
ADataFields.Values['Customer'] := 'Test';
end;
initialization
RegisterEventCustomDataRequest(nil, AddMoreInfo);
// Don't forget to include custom data in your bug report!
// Open: Project / EurekaLog options / Bug report / Content
// Scroll down to bottom and enable "9. Custom data".
// or do it programmatically:
// CurrentEurekaLogOptions.soCustomData := True;
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎