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)) thenbegin
huxtheme := LoadLibrary(themelib);
if huxtheme <> 0 thenbegintry
IsThemeActive := GetProcAddress(huxtheme, "IsThemeActive");
Result := IsThemeActive;
finallyif huxtheme > 0 then
FreeLibrary(huxtheme);
end;
end;
end;
end;
// Example Call: procedure TForm1.Button1Click(Sender: TObject);
beginif _IsThemeActive then
ShowMessage("Windows Themes are active.");
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Обнаружить, использует ли пользователь стиль XP или классический стиль", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!