Code: Select all
procedure TfrmMain.SetupMadExcept;
var
Settings: IMEModuleSettings;
begin
Settings := MESettings();
if Global.SystemRules.ErrorReporting = EXCEPTIONS_AUTOMATICALLY_SEND then
begin
Settings.AutoSend := True;
Settings.SuspendThreads := False;
Settings.ShowPleaseWaitBox := False;
Settings.AutoContinue := True;
Settings.SendInBackground := True;
Settings.Filter1ShowSetting := ssNothing;
Settings.GeneralShowSetting := ssNothing;
Settings.Filter1NoScreenShot := True;
Settings.GeneralNoScreenShot := True;
Settings.AdditionalFields['email'] := Global.LicenceDetails.LicenceEmail;
Settings.AdditionalFields['serial_number'] := Global.LicenceDetails.SerialNumber;
Settings.AdditionalFields['company'] := Global.LicenceDetails.LicenceName;
end
else if Global.SystemRules.ErrorReporting = EXCEPTIONS_PROMPT_USER then
begin
Settings.AutoSend := False;
Settings.SuspendThreads := True;
Settings.ShowPleaseWaitBox := True;
Settings.AutoContinue := False;
Settings.SendInBackground := False;
Settings.Filter1ShowSetting := ssFullBox;
Settings.GeneralShowSetting := ssFullBox;
Settings.Filter1NoScreenShot := False;
Settings.GeneralNoScreenShot := False;
Settings.AdditionalFields['email'] := Global.LicenceDetails.LicenceEmail;
Settings.AdditionalFields['serial_number'] := Global.LicenceDetails.SerialNumber;
Settings.AdditionalFields['company'] := Global.LicenceDetails.LicenceName;
end;
end;
Thanks.
= Steve