易语言剪贴板数据监视源码

系统结构:处理消息,格式化数据,插入换行符,API_监视剪贴板,GetPredefinedClipboardFormatName,API_停止监视剪贴板,API_置窗口特征,API_执行窗口程序,API_发送消息,OpenClipboard,CountClipboardFormats,EnumClipboardFormats,GetUpdatedClipboardFormats,GetClipboardData,GetClipboardFormatName,GlobalLock,GlobalUnlock,复制内存_API,GetLastErr,CloseClipboard,

======窗口程序集1
           |  |
           |  |------ 处理消息
           |  |
           |  |------ _按钮_开始监视剪贴板_被单击
           |  |
           |  |------ _按钮_停止监视剪贴板_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 格式化数据
           |  |
           |  |------ 插入换行符
           |  |
           |  |------ _列表框1_列表项被选择
           |  |
           |  |------ _原始数据框_鼠标左键被放开
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_监视剪贴板
           |  |
           |  |---[dll]------   GetPredefinedClipboardFormatName
           |  |
           |  |---[dll]------   API_停止监视剪贴板
           |  |
           |  |---[dll]------   API_置窗口特征
           |  |
           |  |---[dll]------   API_执行窗口程序
           |  |
           |  |---[dll]------   API_发送消息
           |  |
           |  |---[dll]------   OpenClipboard
           |  |
           |  |---[dll]------   CountClipboardFormats
           |  |
           |  |---[dll]------   EnumClipboardFormats
           |  |
           |  |---[dll]------   GetUpdatedClipboardFormats
           |  |
           |  |---[dll]------   GetClipboardData
           |  |
           |  |---[dll]------   GetClipboardFormatName
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   复制内存_API
           |  |
           |  |---[dll]------   GetLastErr
           |  |
           |  |---[dll]------   CloseClipboard

调用的DLL命令:

.DLL命令 API_监视剪贴板, 整数型, "user32", "SetClipboardViewer", , 在CLIPBOARD浏览器链中加入窗口
    .参数 hwnd, 整数型

.DLL命令 GetPredefinedClipboardFormatName, 整数型, "user32", "GetPredefinedClipboardFormatName"
    .参数 整数

.DLL命令 API_停止监视剪贴板, 整数型, "user32", "ChangeClipboardChain", , 从剪贴板查看窗口上删除一个窗口
    .参数 hwnd, 整数型
    .参数 hWndNext, 整数型

.DLL命令 API_置窗口特征, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 子程序指针

.DLL命令 API_执行窗口程序, 整数型, , "CallWindowProcA"
    .参数 程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 API_发送消息, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 OpenClipboard, 逻辑型, "user32", "OpenClipboard"
    .参数 hWndNewOwner, 整数型

.DLL命令 CountClipboardFormats, 整数型, "user32", "CountClipboardFormats"

.DLL命令 EnumClipboardFormats, 整数型, "user32", "EnumClipboardFormats", , 枚举当前剪贴板所有格式
    .参数 format, 整数型

.DLL命令 GetUpdatedClipboardFormats, 逻辑型, "user32", "GetUpdatedClipboardFormats", , 获取当前剪贴板所有格式
    .参数 lpuiFormats, 整数型
    .参数 cFormats, 整数型
    .参数 pcFormatsOut, 整数型

.DLL命令 GetClipboardData, 整数型, "user32", "GetClipboardData"
    .参数 uFormat, 整数型, , 指定获取的数据的格式，获得的数据使用句柄返回

.DLL命令 GetClipboardFormatName, 整数型, "user32", "GetClipboardFormatNameA", , 获取剪贴板内数据格式的名称。
    .参数 format, 整数型, , clipboard format to retrieve
    .参数 lpszFormatName, 文本型, , address of buffer for name
    .参数 cchMaxCount, 整数型, , length of name string in characters

.DLL命令 GlobalLock, 整数型, "kernel32", "GlobalLock"
    .参数 hMem, 整数型

.DLL命令 GlobalUnlock, 逻辑型, "kernel32", "GlobalUnlock"
    .参数 hMem, 整数型

.DLL命令 复制内存_API, , , "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 GetLastErr, 整数型, "kernel32", "GetLastError"

.DLL命令 CloseClipboard, 逻辑型, "user32", "CloseClipboard"