POINTAPI=REPLICATE(CHR(0),8)
    GetCursorPos(@POINTAPI)

res = ScreenToClient(hwnd, POINTAPI) 　　
x = POINTAPI.x * 15 　　 &&  ？ 如何获取X,Y值
y = POINTAPI.y * 15      &&  ？

WindowFromPoint(X,Y)

Public Type POINTAPI
x As Long
y As Long
End Type

DECLARE SHORT GetCursorPos IN win32api STRING @
DECLARE INTEGER ScreenToClient IN win32api INTEGER hWnd, STRING  @ lpPoint
DECLARE INTEGER WindowFromPoint IN win32api INTEGER,INTEGER
POINTAPI=REPLICATE(CHR(0),8)
GetCursorPos(@POINTAPI)
x=ctobin(SUBSTR(POINTAPI,1,4),'4rs')
y=ctobin(SUBSTR(POINTAPI,5,4),'4rs')
szshwnd = WindowFromPoint(x,y)
ScreenToClient(szshwnd,@pointapi)
x=ctobin(SUBSTR(POINTAPI,1,4),'4rs')
y=ctobin(SUBSTR(POINTAPI,5,4),'4rs')
网上抄的

[此贴子已经被作者于2025-1-2 10:39编辑过]

改了一下 X,Y的定义就OK