请问吹版主，ScreenToClient如何使用

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编辑过]