'
' GetClassName
'
' Author: Joe Strazzere
'
' "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")
