Использование функции `GetDpiForMonitor` в Delphi 7: Решение отсутствующего заголовка

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

Использование функции GetDpiForMonitor в Delphi 7 для поддержки DPI по монитору

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

Проблема

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

Решение

Для решения этой проблемы можно воспользоваться динамическим подключением библиотеки и вызовом функции. Ниже приведен пример кода на Object Pascal, который демонстрирует, как это можно сделать:

Type
  TMONITOR_DPI_TYPE = (MDT_EFFECTIVE_DPI, MDT_ANGULAR_DPI, MDT_RAW_DPI, MDT_DEFAULT);
var
  dpiX, dpiY: UINT;
  ErrCode: HResult;
  hShcore: THandle;
  GetDpiForMonitor: function(monitor: HMONITOR; dpiType: TMONITOR_DPI_TYPE; var dpiX, dpiY: UINT): HRESULT; stdcall;
begin
  hShcore := GetModuleHandle('Shcore');
  if hShcore <> 0 then
    GetDpiForMonitor := GetProcAddress(hShcore, 'GetDpiForMonitor') as function;
  if Assigned(GetDpiForMonitor) then
  begin
    ErrCode := GetDpiForMonitor(Monitor.Handle, MDT_EFFECTIVE_DPI, dpiX, dpiY);
    // Обработка полученных значений dpiX и dpiY
  end;
end;

Обратите внимание, что для работы с перечислениями в Delphi необходимо указать размер в байтах, используя директиву MINENUMSIZE, например:

Type
  TMONITOR_DPI_TYPE = (
    MDT_EFFECTIVE_DPI = $0,
    MDT_ANGULAR_DPI = $1,
    MDT_RAW_DPI = $2,
    MDT_DEFAULT = MDT_EFFECTIVE_DPI
  );
{$MINENUMSIZE 4}

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

Этот пример кода позволяет динамически загрузить библиотеку Shcore.dll и вызвать функцию GetDpiForMonitor напрямую, что решает проблему отсутствия заголовка для этой функции в Delphi 7.

Заключение

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

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

**Описание Context:** В контексте описано использование функции `GetDpiForMonitor` в Delphi 7 для поддержки изменения масштаба (DPI) на каждом мониторе.

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

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

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