Rausfinden welches Fenster den Focus hat

[DeddyH]

Ich habe es so probiert, das sah erst einmal schlüssig aus:

Delphi-Quellcode:

procedure TfrmTest.Timer1Timer(Sender: TObject);
var
  Info: TGuiThreadInfo;
  s: string;
begin
  Info.cbSize := SizeOf(Info); //<-- Nicht vergessen !!
  if GetGUIThreadInfo(0, Info) then
    begin
      SetLength(s, SendMessage(Info.hwndActive, WM_GETTEXTLENGTH, 0, 0));
      SendMessage(Info.hwndActive, WM_GETTEXT, Length(s) + 1, lParam(PChar(s)));
      Label1.Caption := s;
    end;
end;