Examples

Some examples:

// Show exception dialog?

procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                          EurekaAction: TEurekaActionType; var Execute: Boolean);

begin

   if EurekaAction = atShowingExceptionInfo then

     begin

       Execute := MessageBox(0,'Do you want to show error details?', 'Question',

                             MB_YESNO or MB_ICONQUESTION or MB_TASKMODAL)<>ID_YES;

     end;

end;

// Don't save Log File...

procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                          EurekaAction: TEurekaActionType; var Execute: Boolean);

begin

   if EurekaAction = atSavingLogFile then

     Execute := False;

end;

// Check that exception was correctly saved to Log File...

procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                          EurekaAction: TEurekaActionType; var Execute: Boolean);

begin

   if EurekaAction = atSavedLogFile then

     begin

       if not Execute then

         MessageBox(0,'Cannot write to Log File.', 'Error',

                    MB_OK or MB_ICONSTOP or MB_TASKMODAL);

     end;

end;

// Check Email sent correctly...

procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord;

                          EurekaAction: TEurekaActionType; var Execute: Boolean);

begin

   if EurekaAction=atSentEmail then

     begin

       if not Execute then

         MessageBox(0,'Could not send the Email.', 'Error',

                    MB_OK or MB_ICONSTOP or MB_TASKMODAL);

     end;

end;