delphi 获取桌面坐标

procedure TForm1.Timer1Timer(Sender: TObject);

var

  winPos:TPoint;

begin

 GetCursorPos(winPos);

text:=IntToStr(winPos.X) +' '+IntToStr(winPos.y);

end;