Titelzeile des aktiven Fensters auslesen Wie man die Titelzeile des aktiven Fensters auslesen kann, das erfahren Sie hier.
Autor:   Dieter Otter	Bewertung:	Views:  22.067
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.