Функция SetWindowTheme

Declare Function ActivateWindowTheme Lib "uxtheme" Alias _
      "SetWindowTheme" (ByVal hWnd As Long, ByVal _
      pszSubAppName As Long, ByVal pszSbuIdList As Long) As Long

Declare Function DeactivateWindowTheme Lib "uxtheme" Alias _
      "SetWindowTheme" (ByVal hWnd As Long, ByRef _
      pszSubAppName As String, ByRef pszSubIdList As String) As Long
SetWindowTheme позволяет включать или выключать программно визуальные стили Windows XP для отдельного окна. Так как для данных операций используются разные типы в параметрах, то используются два разных объявления для удобства

Возвращаемое значение

В успешном случае возвращается S_OK, в других случаях возвращается код ошибки

Параметры

hWnd
Дескриптор окна, чей визуальный стиль надо поменять
pszSubAppName
Указатель на строку, содержащую имя приложения. Для активации используется 0, для деактивации используется пустая строка ""
pszSbuIdList
Указатель на строку, содержащий список классовых идентификаторов (CLSID). Для активации используется 0, для деактивации используется пустая строка ""

Пример

Смотри пример xptheme.zip

Категория

Визуальные стили Windows XP