Обнаружение использования MadExcept в приложениях Delphi без разархивации файлов

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

Обнаружение использования MadExcept в приложениях Delphi

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

Проверка наличия MadExcept в исполняемом файле

Для ответа на вопрос о наличии MadExcept в вашем приложении Delphi можно использовать несколько методов:

Метод 1: Поиск по тексту

Вы можете выполнить простой текстовый поиск по исполняемому файлу на наличие текста "madexcept". Для этого можно использовать командную стройные утилиты, например, strings и grep:

C:\mydir>strings MyApp.exe | grep -i madexcept

Такой подход покажет все строки, содержащие искомый текст, однако он не даст информацию о том, активен ли MadExcept в приложении.

Метод 2: Использование Process Explorer

Еще один способ — использовать Process Explorer от Microsoft для анализа запущенного процесса. В Process Explorer есть раздел "Строки", где можно сохранить и просмотреть все строки исполняемого файла.

Метод 3: Поиск ресурсов

Если вы используете MadExcept с приложением Delphi, в исполняемом файле должен быть ресурс с именем MAD->EXCEPT. Проверить это можно, используя следующий код на Object Pascal (Delphi):

var
  h: HMODULE;
begin
  h := LoadLibraryEx('c:\path\to\your\app.exe', 0, LOAD_LIBRARY_AS_DATAFILE);
  if h <> 0 then
  begin
    if FindResource(h, 'EXCEPT', 'MAD') <> 0 then
      ShowMessage('MadExcept Found!');
    FreeLibrary(h);
  end;

Для проверки внутри вашего приложения используйте:

if FindResource(HInstance, 'EXCEPT', 'MAD') <> 0 then
  ShowMessage('MadExcept Found!');

Этот метод также не дает информации о том, какие опции MadExcept используются в приложении.

Метод 4: Проверка определений

В проекте, где используется MadExcept, обычно присутствует определение __madExcept__. Вы можете проверить это, добавив в свой код следующую конструкцию:

{$IFDEF madExcept}
  // Код, который будет выполнен, если MadExcept включен
{$ENDIF}

Внутри этой конструкции можно установить значение переменной, например IsMadExcept, которое будет указывать на то, используется MadExcept в вашем приложении или нет.

Заключение

Для ответа на вопрос о наличии MadExcept в приложении Delphi можно использовать различные методы, каждый из которых имеет свои преимущества и недостатки. Выбор метода зависит от конкретной ситуации и требований к проверке.

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

Вопрос о методах обнаружения использования MadExcept в приложениях на Delphi без их разархивации для проверки соответствия сборки спецификации.

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

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

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