Скрытый анализ ресурсов в Delphi без запуска программы

Delphi , Файловая система , Ресурсы

Проверка наличия ресурсов в другой Delphi-приложении

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

Описание проблемы

Представим, что у нас есть функция, которая проверяет наличие ресурса в текущем приложении:

function exists_resource(name: string): boolean;
begin
  if (FindResource(HInstance, PChar(name), RT_RCDATA) <> 0) then
    begin
      Result := True;
    end
  else
    begin
      Result := False;
    end;
end;

Однако, нам нужно проверить наличие ресурса в другом приложении, которое может быть как исполняемым файлом (.exe), так и динамической библиотекой (.dll).

Решение проблемы

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

function exists_resource(const name, filename: string): boolean;
var
  HInst: THandle;
begin
  HInst:= LoadLibraryEx(PChar(filename), 0, LOAD_LIBRARY_AS_DATAFILE or LOAD_LIBRARY_AS_IMAGE_RESOURCE);
  if HInst = 0 then exit(false);
  try
    Result := (FindResource(HInst, PChar(name), RT_RCDATA) <> 0);
  finally
    FreeLibrary(HInst);
  end;
end;

Важно отметить, что использование LoadLibraryEx в таком контексте позволяет загружать как DLL, так и EXE файлы. Функция FreeLibrary используется для освобождения загруженной библиотеки, что предотвращает утечки ресурсов.

Комментарии к коду

Некоторые разработчики могут считать блок finally избыточным, поскольку FindResource не вызывает исключений. Однако, его использование является стилем кодирования, который предотвращает возможные утечки ресурсов при рефакторинге кода. В данном случае, утечка может произойти из-за не освобождения библиотеки, загруженной через LoadLibraryEx. Если работа с ресурсами происходит после проверки их наличия, то вопрос утечки ресурсов становится неактуальным.

Заключение

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

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

Разработчики Delphi могут использовать функцию `LoadLibraryEx` для проверки наличия ресурсов в других приложениях без их запуска, что полезно для автоматизации процессов сборки и тестирования.

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

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

:: Главная :: Ресурсы ::