CodeItBetter Programming Another VB Programming Blog

'System & API - How to get the window title of external application
Option Explicit
 
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" _
    (ByVal hwnd 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
 
Public Function GetWindowTitle(ByVal hwnd As Long) As String
    Dim l As Long
    Dim s As String
    l = GetWindowTextLength(hwnd)
    s = Space$(l + 1)
    GetWindowText hwnd, s, l + 1
    GetWindowTitle = Left$(s, l)
End Function