Titelzeile des aktiven Fensters auslesen Wie man die Titelzeile des aktiven Fensters auslesen kann, das erfahren Sie hier.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  4.584
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 17 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie man die Titelzeile des gerade aktiven Fensters auslesen kann, erfahren Sie heute. Hierzu benötigen wir zwei API-Funktionen: GetForegroundWindow und GetWindowText. Erstere ermittelt das Handle des gerade aktiven Fensters, wobei die zweite Funktion uns dann den dazugehörigen Fenstertitel zurückgibt.

Option Explicit
 
' benötigte API-Deklarationen
Private Declare Function GetForegroundWindow Lib "user32" () As Long
 
Private Declare Function GetWindowText Lib "user32" _
  Alias "GetWindowTextA" ( _
  ByVal hwnd As Long, _
  ByVal lpString As String, _
  ByVal cch As Long) As Long

' Titel des aktiven Fensters ermitteln
Public Function GetActiveWindowTitle() As String
  Dim nHWnd As Long
  Dim sTitle As String
  Dim nResult As Long
 
  ' Handle des aktiven Fenster
  nHWnd = GetForegroundWindow()
 
  ' Titel des aktiven Fensters
  sTitle = Space$(255)
  nResult = GetWindowText(nHWnd, sTitle, Len(sTitle))
 
  GetActiveWindowTitle = Left$(sTitle, nResult)
End Function