Обнаружить, использует ли пользователь стиль XP или классический стиль

Советы » Windows » Обнаружить, использует ли пользователь стиль XP или классический стиль

function

_IsThemeActive: Boolean; // Returns True if the user uses XP style const

themelib = 'uxtheme.dll'; type

TIsThemeActive = function

: BOOL; stdcall

; var

IsThemeActive: TIsThemeActive; huxtheme: HINST; begin

Result := False; // Check if XP or later Version if

(Win32Platform = VER_PLATFORM_WIN32_NT) and

(((Win32MajorVersion = 5) and

(Win32MinorVersion >= 1)) or

(Win32MajorVersion > 5)) then

begin

huxtheme := LoadLibrary(themelib); if

huxtheme <> 0 then

begin

try

IsThemeActive := GetProcAddress(huxtheme, 'IsThemeActive'); Result := IsThemeActive; finally

if

huxtheme > 0 then

FreeLibrary(huxtheme); end

; end

; end

; end

; // Example Call: procedure

TForm1.Button1Click(Sender: TObject); begin

if

_IsThemeActive then

ShowMessage('Windows Themes are active.'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com