Rausfinden welches Fenster den Focus hat

[DelTurbo]

Hi,
ich versuche grade rauszufinden welches Fenster auf dem Desktop den Focus hat, oder einfach von der ZAchse her oben liegt. Es handelt sich nicht um ein Fenster von der Delphiapplikation die ich grade schreibe, sondern von einem "Fremdprogramm".

Danke im voraus

[DeddyH]

GetGUIThreadInfo sollte Dir weiterhelfen.

[DelTurbo]

Hmm, bekomme ich nicht hin. So habe ich das nun versucht. Mit WinSpy schaue ich dann ob das Handle stimmt. Stimmt aber leider nicht :(
Was mache ich falsch?

Delphi-Quellcode:

  rs : TGUITHREADINFO;
begin
  GetGUIThreadInfo(0,rs);
  WriteLn(rs.hwndFocus);
  WriteLn(rs.hwndActive);

[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;

[DelTurbo]

Das geht... Tausend dank!!!!!