Delphi調用WinAPI: GetCursorPos - 獲取鼠標指針的當前位置

//聲明:

GetCursorPos(
　var lpPoint: TPoint {POINT 結構指針, 接收鼠標指針的屏幕坐標}
): BOOL;

//舉例:

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