取鼠标所在位置对应的窗口句柄

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:TPoint; //用来存放坐标
hw:HWND; //用来存放窗口句柄
begin
  GetCursorPos(a);  //取得鼠标坐标,并存放进a中
  hw := WindowFromPoint(a); //取得变量a 对应的 窗口句柄
  Edit1.Text := IntToStr(a.X);
  Edit2.Text := IntToStr(a.Y);
  Edit3.Text := IntToStr(hw);
end;