delphi獲得目前滑鼠坐标

簡單的說就是取滑鼠所在位置對應的視窗句柄?

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;