uchwyt okna

mozna w jakis sposob znalezc uchwyt okna, nad ktorym akualnie znajduje sie kursor myszy?

Funkcja WindowFromPoint.

[code]
var
hwnd : integer;
Mysz : TPoint;
begin
GetCursorPos(Mysz);
hwnd := WindowFromPoint(Mysz);
end;
[/code]

var
  Point: TPoint 
  HWND: LongInt;
begin
  GetCursorPos(Point);
  HWND:=WindowFromPoint(Point);
end;

Nazwa procki dosc sugerujaca:)

[dopisane]
ehhh... Jak zaczynalem pisac post to jeszcze bylo pusto w odpowiedziach:/