Работа с Таблицами Исключений в Win64: Извлечение Записей в Delphi

Delphi , Синтаксис , Справочник по API-функциям

Вопрос, заданный на Stack Overflow, касается возможности извлечения всех записей из таблицы исключений Win64, включая те, которые были добавлены во время выполнения с помощью API функций RtlAddFunctionTable и RtlInstallFunctionTableCallback. Задача состоит в том, чтобы реализовать этот функционал в среде разработки Delphi.

Проблема

В 64-битных системах Windows таблицы исключений (exception tables) используются для обработки исключений и восстановления состояния программы после их возникновения. Эти таблицы содержат информацию о функциях и их рамках, которые могут быть вызваны для выполнения действий по восстановлению после исключения. В случае с 64-битными приложениями, разработанными в Delphi, может возникнуть необходимость в извлечении записей из этих таблиц для анализа или отладки.

Решение

Исходя из предоставленной информации, для решения задачи можно использовать функцию RtlLookupFunctionEntry, которая позволяет получить информацию о записи таблицы исключений для конкретной функции. Список функций можно получить из файла карты (map file), который обычно создается при сборке проекта в Delphi. Кроме того, если используется система отладки, такая как madExcept, она может предоставить необходимую информацию.

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

Подтвержденное решение

Для извлечения информации из структуры HandlerData, содержащей данные о таблице исключений, можно использовать методы, определенные в модуле System.pas, такие как _DelphiExceptionHandler и FindOnExceptionDescEntry. Эти методы связаны с определением записи TExcScope, которое содержит детали о том, для каких целей предназначена каждая запись в таблице исключений. Это можно использовать в сочетании с функцией RtlVirtualUnwind, которая применяется для восстановления после исключения.

Пример кода на Object Pascal (Delphi)

uses
  System.SysUtils,
  System.Classes,
  System.Diagnostics;

function GetFunctionExceptionEntries(const ModuleName: string; const FunctionName: string): TArray<TExceptionEntry>;
var
  PEHeader: PPEHeader;
  PESection: PIMAGE_SECTION_HEADER;
  ExportDirectory: PIMAGE_EXPORT_DIRECTORY;
  ExportFunction: PIMAGE_EXPORT_ADDR;
  FunctionAddresses: TArray<NativeInt>;
  FunctionPointer: PIMAGE_FUNCTION;
  FunctionEntry: PIMAGE_FUNCTION_ENTRY;
  FunctionIndex: Integer;
  EntryCount: Integer;
  EntryAddress: NativeInt;
  EntryName: PChar;
  RtlEntry: PRTL_FUNCTION_TABLE_ENTRY;
begin
  // Здесь должен быть код для загрузки информации о модуле и получения списка функций
  // Используйте RtlLookupFunctionEntry для каждой функции, чтобы получить записи таблицы исключений
  // ...
  // В качестве примера, просто создадим пустой массив, который будет возвращать функция
  Result := TArray<TExceptionEntry>.Create;
end;

type
  TExceptionEntry = record
    Address: NativeInt;
    HandlerType: Integer;
    HandlerData: Pointer;
    // Другие поля записи таблицы исключений
  end;

var
  ExceptionEntries: TArray<TExceptionEntry>;
begin
  // Предположим, что GetFunctionExceptionEntries возвращает записи для конкретной функции
  ExceptionEntries := GetFunctionExceptionEntries('MyModule.dll', 'MyFunction');
  // Здесь можно обработать полученные записи
  // ...
end.

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

Заключение

Таким образом, извлечение записей из таблицы исключений Win64 в среде Delphi возможно, но требует глубоких знаний о внутреннем устройстве исполняемых файлов и работы с API Windows. Используя предоставленные методы и функции, можно реализовать необходимый функционал для работы с таблицами исключений.

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

Вопрос на Stack Overflow касается извлечения записей из таблиц исключений Win64 для приложений, разработанных в Delphi, включая записи, добавленные во время выполнения.

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

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

:: Главная :: Справочник по API-функциям ::