Delphi 調用 WinAPI：GetCursorPos 取得滑鼠游標螢幕座標

最基礎的滑鼠位置 API

GetCursorPos 將目前滑鼠游標的螢幕座標 (以螢幕左上角為原點) 寫入 TPoint 結構。配合 ScreenToClient 可轉為視窗用戶端座標。

函數宣告

function GetCursorPos(var lpPoint: TPoint): BOOL; stdcall;

範例：顯示螢幕座標

var
  pt: TPoint;
begin
  GetCursorPos(pt);
  ShowMessage(Format('ScreenX: %d; ScreenY: %d', [pt.X, pt.Y]));
end;

TPoint 結構

type
  TPoint = record
    X: Longint;
    Y: Longint;
  end;

此為所有滑鼠座標操作的基石，搭配 SetCursorPos 可實現滑鼠自動移動、點擊模擬等自動化功能。