Функция GetClassInfo

Declare Function GetClassInfo Lib "user32" Alias "GetClassInfoA" (ByVal hInstance As Long, ByVal lpClassName As String, lpWndClass As WNDCLASS) As Long

GetClassInfo получает информацию о классе окна.

hInstance
Описатель экземпляра, владеющего классом или 0, если класс определяется системой
lpClassName
Имя требуемого класса
lpWndClass
Структура WNDCLASS, содержащая информацию о классе

Пример

' Узнаем информацию о классе формы Form1
Dim classinfo As WNDCLASS
Dim classname As String  ' имя класса
Dim slength As Long  ' длина имени класса
Dim retval As Long  ' возвращаемое значение

' Узнаем имя класса
classname = Space(255)
slength = GetClassName(Form1.hWnd, classname, 255)
classname = Left(classname, slength)

' Получаем информацию о классе
retval = GetClassInfo(App.hInstance, classname, classinfo)

' Выводим курсор для класса формы Form1
retval = DrawIconEx(Form1.hDC, 50, 0, classinfo.hCursor, 0, 0, 0, 0, DI_NORMAL)

Смотри также

GetClassInfoEx, GetClassLong

Категория

Классы