Отключение обработки исключений в Delphi для взаимодействия с системой обработки сбоев Windows

Delphi , Синтаксис , Ошибки и Исключения

В процессе разработки программного обеспечения на языке Delphi часто возникает необходимость отладить ошибки, возникающие в сторонних библиотеках. Стандартная обработка исключений в Delphi может затруднять этот процесс, поскольку она скрывает информацию о сбоях от системы Windows. В данной статье мы рассмотрим, как можно отключить обработку исключений в Delphi, чтобы система Windows могла самостоятельно обрабатывать сбои, предоставляя пользователю информацию в виде окон типа "AppName crashed. Debug, Send" и создавая дампы памяти.

Введение

Delphi по умолчанию перехватывает все исключения в процедуре TApplication.Run. Это поведение можно изменить, не модифицируя файл Forms.pas. Существуют различные подходы к решению этой задачи, и мы рассмотрим их, а также возможные альтернативные варианты.

Альтернативный подход с использованием OnException

Один из способов – добавить обработчик OnException, который перевызывает исключение. Это можно сделать следующим образом:

class procedure TMainForm.OnException(Sender: TObject; E: Exception);
begin
  raise Exception(AcquireExceptionObject);
end;

initialization
  Application.OnException := TMainForm.OnException;

Этот подход позволяет перенаправить обработку исключений, но все же остается в рамках Delphi и не позволяет системе Windows полностью взять на себя обработку сбоев.

Использование JITEnable

Для того чтобы исключения обрабатывались системой, можно использовать свойство JITEnable. Установив его значение в 1 или выше, можно настроить обработку не только неnative, но и всех исключений, в зависимости от значения:

• JITEnable := 1 – не native исключения будут обрабатываться JIT или WER.
• JITEnable := 2 и выше – все исключения будут обрабатываться JIT или WER.

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  raise EAccessViolation.Create('access denied');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    PInteger(0)^ := 0;
  except
  end;
end;

initialization
  JITEnable := 1;

В этом случае, если в коде возникнут необработанные исключения, система Windows получит возможность их обработать.

Замена RTL

Существует также возможность замены встроенного в Delphi RTL на альтернативный набор функций, например, используя KOL (Key Objects Library). Это позволяет создать систему, в которой RTL не обрабатывает исключения, что может быть необходимо для некоторых специфических задач.

Заключение

Отключение обработки исключений в Delphi может быть полезным для отладки ошибок в сторонних библиотеках, но необходимо понимать, что это может привести к потере некоторых удобных функций, предоставляемых инструментами, такими как MadExcept или EurekaLog. Важно тщательно взвесить все "за" и "против" перед принятием решения об изменении стандартного поведения обработки исключений в вашем приложении.

Этот подход может быть полезен в исследовательских или специализированных случаях, когда требуется максимально детальное взаимодействие с системой обработки ошибок операционной системы.

Создано по материалам из источника по ссылке.

Описание методов отключения обработки исключений в Delphi для взаимодействия с системой обработки сбоев Windows.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ошибки и Исключения ::