Delphi/Lazarus: Titel des aktiven Fensters ermitteln

Heute möchte ich euch zeigen, wie ihr unter Windows den Titel bzw. die Caption von dem Fenster ermitteln könnt, das gerade den Fokus hat.

Die folgende Funktion dafür funktioniert sowohl mit Delphi als auch mit Lazarus (die Unit Windows muss eingebunden sein).

function GetTitleOfActiveWindow: string;
var
  AHandle: THandle;
  ATitle: string;
  ALen: Integer;
begin
  Result := '';
  AHandle := GetForegroundWindow;  // aktives fenster

  if AHandle <> 0 then begin
    ALen := GetWindowTextLength(AHandle) + 1;
    SetLength(ATitle, ALen);
    GetWindowText(AHandle, PChar(ATitle), ALen);
    result := Trim(ATitle);
  end;
end;  

Zunächst bestimmen wir das Handle des Fensters, das sich aktuell im Vordergrund hat und befindet und damit den Fokus hat. Anschließend lesen wir den Titel des Fensters aus und geben diesen als Result der Funktion zurück.