Titel des aktiven Fensters ermitteln

Wenn Sie den Titel des aktuellen Fensters, also beispielsweise des Access-Fensters, ermitteln möchten (s. Bild 1), benötigen Sie zwei API-Funktionen und eine VBA-Funktion, welche die beiden zum Ermitteln des Fenstertitels nutzt.

Diese Elemente haben wir in der Beispieldatenbank zu diesem Beitrag im Modul mdlAPI untergebracht (s. Listing 1). Die Funktion GetActiveWindowTitle ermittelt zunächst das Handle des mit der API-Funktion GetForegroundWindow ermittelten Fensters. Um nun mit der Funktion GetWindowText den Fenstertitel zu ermitteln, müssen wir zunächst eine String-Variable mit 255 Leerzeichen füllen.

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