es funkt jedenfalls recht super mit 100ms timer und das sollte auch nich zu viel fuers system sein...
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
curpos: TPoint;
begin
getcursorpos(curpos);
label1.Caption := inttostr(integer(windowfrompoint(curpos)));
end;
danke!