Examples

Caution: this is old EurekaLog 6 documentation. This is not the latest version.

Some examples:

// Don't save the Log File...

procedure MyHandledNotify(ExcRecord: TEurekaExceptionRecord; var Handled: Boolean);

begin

   ExcRecord.CurrentModuleOptions.SaveLogFile := False;

end;

// Check exception type...

procedure MyHandledNotify(ExcRecord: TEurekaExceptionRecord; var Handled: Boolean);

var 

   Error: Exception;

begin

   if ExcRecord.ExceptionObject is Exception then

     begin

       Error := Exception(ExcRecord.ExceptionObject); // Obtain exception type...

       MessageBox(0,PChar(Format('Error: %s',[Error.Message])),'Error',

                  MB_OK or MB_ICONSTOP or MB_TASKMODAL);

       ExcRecord.CurrentModuleOptions.ExceptionDialogType := edtNone; // Don't show exception dialog.

     end;

end;