madshi.net

Code: Select all

procedure MyExceptionHandler( const exceptIntf : IMEException; var handled: boolean);
begin
...
        exceptIntf.ShowSetting := ssAssistant;
        exceptIntf.ShowAssistant := MESettings.SendAssistant;
//        exceptIntf.SendBugReport(MainForm.Handle);//   := ssAssistant;
        exceptIntf.Show
        Handled := True;
...
end;

Code: Select all

        exceptIntf.ShowSetting := ssAssistant;
        exceptIntf.ShowAssistant := MESettings.SendAssistant;
        Handled := False;

Code: Select all

    DontHookThreads;
    RegisterExceptionHandler( AppExceptionHandler, stTrySyncCallAlways);

and process so:

  handled := True;
  try
    if MainForm <> nil then
      exceptIntf.BugReportSections.Add( 'Last SQL command info', MainForm.LastSqlCmdInfo);

    E := exceptIntf.ExceptObject as Exception;

    if IsQueryCancel(E) then Exit;

    for i := 0 to Screen.FormCount - 1 do
      if (Screen.Forms[i] is TErrorForm) and (TErrorForm(Screen.Forms[i]).ErrorMemo.text = E.Message) then
        exit;

    case TErrorForm.Exec(E) of
      mrOk: Handled := False;
      mrYes: begin
        exceptIntf.ShowSetting := ssAssistant;
        exceptIntf.ShowBugReport(GetDesktopWindow);
        Handled := True;
      end;
    end;

    if Assigned(MainForm)  then
      if IndexText( Trim(E.Message), [
           'Connection is not connected',
           'TCP Provider: An existing connection was forcibly closed by the remote host.']
         ) <> -1
      then
        MainForm.NotifyDisconnect;
  except
    handled := False;
  end;

Code: Select all

procedure AppExceptionHandler(const exceptIntf: IMEException; var handled: boolean);
begin
  exceptIntf.SendBugReport(GetDesktopWindow);
  Handled := true;
end;

RegisterExceptionHandler(AppExceptionHandler, stDoneSync, epMainPhase);