Как определить использует ли пользователь стили? |
Previous Top Next |
Code: |
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; |
©Drkb::00399
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
Code: |
uses Themes; ... if ThemeServices.ThemesEnabled then // Тема использется |
©Drkb::03660
Автор Alex
Взято с Vingrad.ru http://forum.vingrad.ru