Q
qet006
Unregistered / Unconfirmed
GUEST, unregistred user!
以下是VBS调用的DLL,那位看下那个CursorPos变量在Delphi里怎么用,这个函数是用来得到鼠标当前位置的,我是想知道VBS转Delphi的变量设置
function GetCursorPos(ByRef CursorX,ByRef CursorY)
dim obj
set obj = createobject("QMDispatch.QMFunction"
CursorPos = obj.GetCursorPos()
CursorY = CursorPos Mod 8192
CursorX = CInt(CursorPos / 8192)
end function
function GetCursorPos(ByRef CursorX,ByRef CursorY)
dim obj
set obj = createobject("QMDispatch.QMFunction"
CursorPos = obj.GetCursorPos()
CursorY = CursorPos Mod 8192
CursorX = CInt(CursorPos / 8192)
end function