易语言划词取词源码

系统结构:鼠标钩子处理,取词,复制图片到剪贴板,从剪贴板取位图,API_SetWindowsHookEx,API_UnhookWindowsHookEx,API_GetModuleHandle,API_CallNextHookEx,设置剪贴板数据,获取剪贴板数据,打开剪贴板,关闭剪贴板,清空剪贴板,API_GetCursorPos,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 鼠标钩子处理
           |  |
           |  |------ 取词
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ 复制图片到剪贴板
           |  |
           |  |------ 从剪贴板取位图
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_SetWindowsHookEx
           |  |
           |  |---[dll]------   API_UnhookWindowsHookEx
           |  |
           |  |---[dll]------   API_GetModuleHandle
           |  |
           |  |---[dll]------   API_CallNextHookEx
           |  |
           |  |---[dll]------   设置剪贴板数据
           |  |
           |  |---[dll]------   获取剪贴板数据
           |  |
           |  |---[dll]------   打开剪贴板
           |  |
           |  |---[dll]------   关闭剪贴板
           |  |
           |  |---[dll]------   清空剪贴板
           |  |
           |  |---[dll]------   API_GetCursorPos

调用的DLL命令:

.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_CallNextHookEx, 整数型, "user32", "CallNextHookEx", , 调中链中的下一个挂钩过程
    .参数 hHook, 整数型
    .参数 ncode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 设置剪贴板数据, 整数型, , "SetClipboardData", , 返回句柄
    .参数 uFormat, 整数型, , 表示的是要放进剪贴板数据的格式
    .参数 hMem, 整数型, , 表示数据的地址指针

.DLL命令 获取剪贴板数据, 整数型, , "GetClipboardData", , 返回句柄
    .参数 uFormat, 整数型, , 表示的是要放进剪贴板数据的格式

.DLL命令 打开剪贴板, 整数型, , "OpenClipboard"
    .参数 窗口句柄, 整数型

.DLL命令 关闭剪贴板, 逻辑型, , "CloseClipboard", , 本函数没有参数，事先应该用OpenClipboard函数打开过剪贴板。

.DLL命令 清空剪贴板, 逻辑型, , "EmptyClipboard"

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