Выявление версии Windows для округления углов окон в Delphi

Delphi , Программа и Интерфейс , Размеры и Положение

Для выполнения задачи выявления версии операционной системы Windows для последующего округления углов окон в приложениях на языке программирования Object Pascal (Delphi), необходимо использовать комбинацию проверки доступности функции DwmSetWindowAttribute и непосредственной попытки её выполнения. Ниже приведен пример кода, который демонстрирует данный подход:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Проверка возможности округления углов
  if CanRoundCorners then
    SetRoundedCorners(Self.Handle, RoundedCornerSmall); // Пример использования функции из предоставленного контекста
  else
    ShowMessage('Округление углов не поддерживается текущей версией Windows.');
end;

function CanRoundCorners: Boolean;
var
  DwmApi: HMODULE; // Указатель на библиотеку Dwmapi.dll
  Proc: TProcPointer; // Функция для проверки доступности экспортируемой функции
begin
  Result := False;
  DwmApi := LoadLibrary('Dwmapi.dll'); // Загрузка библиотеки Dwmapi.dll в память процесса
  if Assigned(DwmApi) then
  begin
    Proc := GetProcAddress(DwmApi, 'DwmSetWindowAttribute'); // Проверка доступности функции
    Result := Assigned(Proc); // Если функция найдена, то округляем углы окна по-разному в зависимости от версии Windows
    FreeLibrary(DwmApi); // Освобождение загруженной библиотеки из памяти процесса
  end;
end;

procedure SetRoundedCorners(const TheHandle: HWND; const CornerType: TRoundedWindowCornerType);
begin
  // ... (код функции SetRoundedCorners остается без изменений)
end;

// Остальной код формы и приложения...

В данном примере, функция CanRoundCorners проверяет возможность округления углов, загружая библиотеку Dwmapi.dll и пытаясь получить указатель на функцию DwmSetWindowAttribute. Если функция доступна, то возвращается True, что позволяет в дальнейшем использовать функционал округления углов для версий Windows, поддерживающих это.

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

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

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

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

Для реализации округления углов окон в приложениях на Object Pascal (Delphi) используется проверка доступности функции `DwmSetWindowAttribute` и её последующее применение для версий Windows, поддерживающих эту функцию.

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

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

:: Главная :: Размеры и Положение ::