Visual Basic Programming Code Examples Visual Basic > Code Snippets Code Examples Active window title Active window title 'active window title Private Declare Function GetForegroundWindow Lib "user32" () As Long 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 Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long ' Returns the title of the active window. ' if GetParent = true then the parent window is ' returned. Public Function GetActiveWindowTitle(ByVal ReturnParent As Boolean) As String Dim i As Long Dim j As Long i = GetForegroundWindow If ReturnParent Then Do While i <> 0 j = i i = GetParent(i) Loop i = j End If GetActiveWindowTitle = GetWindowTitle(i) End Function 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
