Обнаружить, использует ли пользователь стиль XP или классический стильDelphi , ОС и Железо , WindowsОбнаружить, использует ли пользователь стиль XP или классический стиль
Оформил: DeeCo 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; Статья Обнаружить, использует ли пользователь стиль XP или классический стиль раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |