Binaryworld - WindowDescription - Get a textual description of a window given its hW ... [ VB -> Windows ]

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal _
  hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
  (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

' Return a text description of a given window
' (consists of hWnd and classname, optionally followed by caption)

Function WindowDescription(ByVal hWnd As Long) As String
  Dim buffer As String * 256
  Dim length As Long
  Dim text As String
  Dim classname As String

  length = GetWindowText(hWnd, buffer, Len(buffer))
  text = Left$(buffer, length)
  length = GetClassName(hWnd, buffer, Len(buffer))
  classname = Left$(buffer, length)

  WindowDescription = "[" & Right$("0000000" & Hex$(hWnd), _
    8) & "] " & classname
  If Len(text) Then
    WindowDescription = WindowDescription & " - """ & text & """"
  End If
End Function