回复 10楼 foxfans
DECLARE LONG GetCursorPos IN WIN32API STRING @
LOCAL structPos, posX, posY
structPos = REPLICATE(CHR(0), 8)
IF GetCursorPos(@structPos)=1
posX = CTOBIN(LEFT(structPos,4),"4RS")
posY = CTOBIN(RIGHT(structPos,4),"4RS")
?posX,PosY
?INT((posX/1440)*65536),INT((PosY/900)*65536) &&这里就是相对于屏幕的当前坐标内部转换值,lParam
ENDIF
稍改了一下,测试接近需要,感谢!