易语言怎么取鼠标相对于启动窗口的位置

Question

别发取鼠标相对于窗口位置的

Answer 1

.版本 2
.子程序 鼠标钩子回调函数, 整数型

.参数 参数一, 整数型
.参数 参数二, 整数型
.参数 参数三, 整数型
.局部变量 鼠标, MOUSEHOOKSTRUCT
.局部变量 鼠标键值, 整数型
CopyMemory (鼠标, 参数三, 20)

.判断开始 (参数二 ＝ 512)
标签1.标题 ＝ 到文本 (鼠标.pt.X － _启动窗口.左边 ) ＋ “,” ＋ 到文本 (鼠标.pt.Y － _启动窗口.顶边 )
.默认
.判断结束

返回 (CallNextHookEx (鼠标钩子, 参数一, 参数二, 参数三))
.子程序 __启动窗口_创建完毕

鼠标钩子 ＝ SetWindowsHookEx (14, &鼠标钩子回调函数, GetModuleHandle (0), 0)

.子程序 __启动窗口_将被销毁

UnHookWindowsHookEx (鼠标钩子)
.版本 2
.数据类型 MOUSEHOOKSTRUCT
.成员 pt, POINT
.成员 hwnd, 整数型
.成员 wHitTestCode, 整数型
.成员 dwExtraInfo, 整数型
.版本 2
.DLL命令 GetModuleHandle, 整数型, , "GetModuleHandleA", , , 获取句柄
.参数 lpModuleName, 整数型
.DLL命令 CallNextHookEx, 整数型, , "CallNextHookEx", , , 下一个钩子
.参数 hhk, 整数型
.参数 nCode, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.DLL命令 SetWindowsHookEx, 整数型, , "SetWindowsHookExA", , , 创建钩子
.参数 idHook, 整数型
.参数 lpfn, 子程序指针
.参数 hmod, 整数型
.参数 dwThreadId, 整数型
.DLL命令 UnHookWindowsHookEx, 逻辑型, , "UnhookWindowsHookEx", , , 卸载钩子
.参数 hhk, 整数型
.DLL命令 WindowFromPoint, 整数型, "user32", "WindowFromPoint", , , 返回包含了指定点的窗口的句柄。忽略屏蔽、隐藏以及透明窗口 包含了指定点的窗口的句柄。如指定的点处没有窗口存在，则返回零
.参数 xPoint, 整数型, , x点值
.参数 yPoint, 整数型, , y点值;
.DLL命令 CopyMemory, , , "RtlMoveMemory", , , 拷贝内存
.参数 Destination, MOUSEHOOKSTRUCT, 传址
.参数 Source, 整数型
.参数 Length, 整数型