Функция 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

Категория

Классы