| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 剪辑板_置内容 | 逻辑型 | 置内容 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 参_剪辑版数据 | 剪辑版数据 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 局_计次 | 整数型 | |||||
| 剪辑版数据格式 | 整数型 | |||||
| 剪辑版格式 | 整数型 | |||||
| 内存地址 | 整数型 | |||||
| 内存指针 | 整数型 | |||||
如果真 (OpenClipboard (0) = 0) ' 打开剪辑版
返回 (假)EmptyClipboard () ' 清空剪切板并释放剪切板内数据的句柄,但是数据仿佛没有什么用了,2333
计次循环首 (取数组成员数 (参_剪辑版数据), 局_计次) ' 开始计次……
剪辑版数据格式 = 参_剪辑版数据 [局_计次].剪辑版数据格式
如果真 (参_剪辑版数据 [局_计次].文本型数据 ≠ “”)
剪辑版格式 = RegisterClipboardFormatA (参_剪辑版数据 [局_计次].文本型数据) ' 它注册一个新的剪贴板格式,此后这个格式可作为有效的剪贴板格式。

如果真 (剪辑版格式 > 0) ' 注册成功!

剪辑版数据格式 = 剪辑版格式


内存地址 = GlobalAlloc (位或 ( #CF_BITMAP, #CF_LIMITSIZE ), 参_剪辑版数据 [局_计次].字节集长度) ' 在剪辑版中分配内存
内存指针 = GlobalLock (内存地址) ' 锁定内存对象并返回剪辑版指针
RtlMoveMemory (内存指针, 取指针_字节集型 (参_剪辑版数据 [局_计次].字节集数据) , 参_剪辑版数据 [局_计次].字节集长度) ' 倒着写回去
GlobalUnlock (内存地址) ' 开锁全局内存块
SetClipboardData (剪辑版数据格式, 内存地址) ' 剪辑板置数据,写回去
计次循环尾 ()CloseClipboard () ' 关闭剪辑版
返回 (真)
| 数据类型名 | 公开 | 备 注 | ||||
| 剪辑版数据 | ||||||
| 成员名 | 类 型 | 传址 | 数组 | 备 注 | ||
| 剪辑版数据格式 | 整数型 | |||||
| 文本型数据 | 文本型 | |||||
| 字节集长度 | 整数型 | |||||
| 字节集数据 | 字节集 | |||||
词条作者信息 使用例程
