Функция GetClassInfoEx

Declare Function GetClassInfoEx Lib "user32" Alias "GetClassInfoExA" (ByVal hinst As Long, ByVal lpszClass As String, lpwcx As WNDCLASSEX) As Long

GetClassInfoEx возвращает всю информацию о заданном классе, включая описатель малых значков (в отличие от GetClassInfo).

hinst

Описатель экземпляра, владеющего классом или 0, если класс определяется системой

lpszClass

Имя требуемого класса

lpwcx

Структура WNDCLASSEX, содержащая информацию о классе

Пример

' Выводим курсор по умолчанию для текстовых полей
Dim WCX As WNDCLASSEX

WCX.cbSize = Len(WCX)
' Получаем информацию о классе
GetClassInfoEx ByVal 0&, "EDIT", WCX
Me.Cls
Me.Print "Курсор по умолчанию для текстовых полей:"
' Рисуем этот курсор
DrawIcon Me.hdc, 0, 15, WCX.hCursor

Смотри также

GetClassInfo, GetClassLong

Категория

Классы