易语言演示剪贴板窗口链源码

系统结构:新窗口函数,注册剪贴板数据类型,新窗口函数1,新窗口函数2,新窗口函数3,OpenClipboard,EmptyClipboard,SetClipboard,SetClipboardData,GlobalAlloc,GlobalLock,GlobalUnlock,CloseClipboard,RtlMoveMemory,RtlMoveMemory1,RtlMoveMemory2,GetClipboardData,RegisterClipboardFormat,SetClipboardViewer,GetClipboardViewer,SetWindowLong,CallWindowProc,SendMessageA,ChangeClipboardChain,GetClipboardOwner,GlobalSize,

======启动窗口程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 新窗口函数
           |  |
           |  |------ _置剪贴板_文本
           |  |
           |  |------ _取剪贴板_文本
           |  |
           |  |------ 注册剪贴板数据类型
           |  |
           |  |------ _置剪贴板_字节集
           |  |
           |  |------ _取剪贴板_字节集
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======窗口1程序集
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 新窗口函数1
           |  |
           |  |
======窗口2程序集
           |  |
           |  |------ _窗口2_创建完毕
           |  |
           |  |------ 新窗口函数2
           |  |
           |  |
======窗口3程序集
           |  |
           |  |------ _窗口3_创建完毕
           |  |
           |  |------ 新窗口函数3
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   OpenClipboard
           |  |
           |  |---[dll]------   EmptyClipboard
           |  |
           |  |---[dll]------   SetClipboard
           |  |
           |  |---[dll]------   SetClipboardData
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   CloseClipboard
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   RtlMoveMemory1
           |  |
           |  |---[dll]------   RtlMoveMemory2
           |  |
           |  |---[dll]------   GetClipboardData
           |  |
           |  |---[dll]------   RegisterClipboardFormat
           |  |
           |  |---[dll]------   SetClipboardViewer
           |  |
           |  |---[dll]------   GetClipboardViewer
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   ChangeClipboardChain
           |  |
           |  |---[dll]------   GetClipboardOwner
           |  |
           |  |---[dll]------   GlobalSize

调用的DLL命令:

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

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

.DLL命令 SetClipboard, 整数型, "user32", "SetClipboardViewer"
    .参数 hWndNewViewer, 整数型

.DLL命令 SetClipboardData, 整数型, "user32", "SetClipboardData"
    .参数 uFormat, 整数型
    .参数 hMem, 整数型

.DLL命令 GlobalAlloc, 整数型, "kernel32", "GlobalAlloc"
    .参数 uFlags, 整数型
    .参数 dwBytes, 整数型

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

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

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

.DLL命令 RtlMoveMemory, 整数型, "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 文本型, 传址
    .参数 Length, 整数型

.DLL命令 RtlMoveMemory1, 整数型, "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 RtlMoveMemory2, 整数型, "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 字节集, 传址
    .参数 Length, 整数型

.DLL命令 GetClipboardData, 整数型, "user32", "GetClipboardData"
    .参数 uFormat, 整数型

.DLL命令 RegisterClipboardFormat, 整数型, "user32", "RegisterClipboardFormatA"
    .参数 lpszFormat, 文本型, 传址

.DLL命令 SetClipboardViewer, 整数型, "user32", "SetClipboardViewer"
    .参数 hWndNewViewer, 整数型

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

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SendMessageA, 整数型, "user32", "SendMessageA"
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 ChangeClipboardChain, 整数型, "user32", "ChangeClipboardChain"
    .参数 Para1
    .参数 Para2

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

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