delphi 获取系统屏幕坐标

function GetCursorXY:TPoint;
begin
  if not Winapi.Windows.GetCursorPos(Result) then
  begin
    Result := Point(Screen.Width div 2, Screen.Height div 2);
  end;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
text:=GetCursorXY.X.ToString+' '+ GetCursorXY.Y.ToString;
end;