易语言获取歘口句柄例程源码

系统结构:钩子处理,API_CallNextHookEx,API_SetWindowsHookEx,API_UnhookWindowsHookEx,API_GetModuleHandle,API_载入鼠标指针,API_设当前指针,API_取鼠标位置,API_WindowFromPoint,API_创建指针,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _图片框1_鼠标左键被按下
           |  |
           |  |------ 钩子处理
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_CallNextHookEx
           |  |
           |  |---[dll]------   API_SetWindowsHookEx
           |  |
           |  |---[dll]------   API_UnhookWindowsHookEx
           |  |
           |  |---[dll]------   API_GetModuleHandle
           |  |
           |  |---[dll]------   API_载入鼠标指针
           |  |
           |  |---[dll]------   API_设当前指针
           |  |
           |  |---[dll]------   API_取鼠标位置
           |  |
           |  |---[dll]------   API_WindowFromPoint
           |  |
           |  |---[dll]------   API_创建指针

调用的DLL命令:

.DLL命令 API_CallNextHookEx, 整数型, "user32", "CallNextHookEx", , 调中链中的下一个挂钩过程　
    .参数 hHook, 整数型
    .参数 ncode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 API_SetWindowsHookEx, 整数型, "user32", "SetWindowsHookExA", , 安装钩子过程　
    .参数 idHook, 整数型
    .参数 lpfn, 子程序指针
    .参数 hmod, 整数型
    .参数 dwThreadId, 整数型

.DLL命令 API_UnhookWindowsHookEx, 整数型, "user32", "UnhookWindowsHookEx", , 从钩子链中删除函数　
    .参数 hHook, 整数型

.DLL命令 API_GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄　如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 整数型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;  

.DLL命令 API_载入鼠标指针, 整数型, "user32", "LoadCursorA", , 从指定的模块或应用程序实例中载入一个鼠标指针。LoadCursorBynum是LoadCursor函数的类型security声明　执行成功则返回已载入的指针的句柄；零表示失败。在Windows ;    95 和Win16环境中，这个函数只能载入标准尺寸的图标
    .参数 实例句柄, 整数型, , 一个DLL的模块句柄；或者一个实例句柄，指定包含了鼠标指针的可执行程序
    .参数 鼠标指针标识, 整数型, , 作为一个字串，指定欲载入的指针资源。作为一个长整数值，指定欲载入的资源ID；或者设置一个常数，代表某幅固有系统指针。如装载的是一个固有系统指针，注意hInstance参数应设为零。在api32.txt文件中以前缀IDC_ 作为标志;  

.DLL命令 API_设当前指针, 整数型, "user32", "SetCursor", , 将指定的鼠标指针设为当前指针　前一个指针的值
    .参数 指针句柄, 整数型, , 要设为当前指针的一个指针的句柄。如设为零，表示不显示任何指针;  

.DLL命令 API_取鼠标位置, 整数型, "user32", "GetCursorPos", , 获取鼠标指针的当前位置　非零表示成功，零表示失败。会设置GetLastError
    .参数 位置, POINTAPI, , POINTAPI，随同指针在屏幕像素坐标中的位置载入的一个结构;

.DLL命令 API_WindowFromPoint, 整数型, "user32", "WindowFromPoint", , 返回包含了指定点的窗口的句柄。忽略屏蔽、隐藏以及透明窗口　包含了指定点的窗口的句柄。如指定的点处没有窗口存在，则返回零
    .参数 xPoint, 整数型, , x点值
    .参数 yPoint, 整数型, , y点值;

.DLL命令 API_创建指针, 整数型, "user32", "LoadCursorFromFileA", , 在一个指针文件或一个动画指针文件（扩展名分别是.cur和.ani）的基础上创建一个指针　执行成功则返回指向指针的一个句柄，零表示失败。如果失败，会将GetLastError设置为常数ERROR_FILE_NOT_FOUND
    .参数 文件名, 文本型, , 包含指针的那个文件的名字;