Wiedermal Maushook

[Delphi-Fan-Friedrichsdorf]

Hallo halinchen,
wenn du das Fensterhandle unter der Maus willst brauchst du keine Maushook.
Ich benutze Delphi 5 und mach das so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);// Interval so klein wie möglich(,aber nicht kleiner als 200 würde ich sagen, sonst wird es zu langsam.)

var pos:TPoint;
    h:THandle;
    WinCaption : string;
    Len: integer;
begin

GetCursorPos(pos);  //Mausposition abfragen
h:=WindowFromPoint(pos); //Fenster-handle an dieser Position speichern

Label1.Caption:='Mausposition: '+IntToStr(pos.x)+'/'+IntToStr(pos.y); //Nich so wichtig: Mausposition anzeigen

if h>0 then //Handle prüfen
begin

 Len := GetWindowTextLength(h); //Titellänge abfragen
 SetLength(WinCaption, Len); //Länge setzen
 GetWindowText(h, PChar(WinCaption), Len+1); //Text holen

 Label2.Caption:='Fenstertitel: '+WinCaption; //Titel anzeigen

end else Label2.Caption:='Fenstertitel: Kein Titel'; //Fehlerbehandlung

end;