December 1, 2005 - WinTask - GetClassName

'
' GetClassName
'
' "user32" Alias "GetClassNameA"
' (ByVal hwnd As Long,
'  ByVal lpClassName As String,
'  ByVal nMaxCount As Long) As Long
'

Dim memptr as unsigned
Dim texlen as unsigned

memptr=allocate(255)
textlen=64

hwnd=GetWindowHandle(focus$(),1)

ret = External("user32","GetClassNameA", hwnd, memptr, textlen)

myclass$=peekstring$(memptr)

msgbox("The class of the window with the Focus is "+myclass$,,"GetClassName")