| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 剪辑板_取所有内容 | 逻辑型 | 取所有内容 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 参_剪辑版数据 | 剪辑版数据 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 数据格式 | 整数型 | |||||
| 剪辑版数据 | 剪辑版数据 | |||||
| 缓冲区 | 文本型 | |||||
| 数据句柄 | 整数型 | |||||
| 内存指针 | 整数型 | |||||
如果真 (OpenClipboard (0) ＝ 0) ' 打开剪辑版
返回 (假)清除数组 (参_剪辑版数据) ' 清除数据
判断循环首 (真)数据格式 ＝ EnumClipboardFormats (数据格式) ' 取出剪切板内容的数据格式如果真 (数据格式 ＝ 0) ' 没有格式……跳出循环 ()剪辑版数据.剪辑版数据格式 ＝ 数据格式缓冲区 ＝ 取空白文本 (255) ' 生成缓冲区判断 (数据格式 ≤ 14)
剪辑版数据.文本型数据 ＝ “”
判断 (GetClipboardFormatNameA (数据格式, 缓冲区, 255) ＝ 0) ' 获取剪贴板内数据格式的名称，判断是否有文本
剪辑版数据.文本型数据 ＝ “” ' 没有文本……
剪辑版数据.文本型数据 ＝ 缓冲区数据句柄 ＝ GetClipboardData (数据格式) ' 取剪辑板数据句柄如果真 (数据句柄 ＝ 0) ' 没有数据……到循环尾 () ' 开启下一个循环剪辑版数据.字节集长度 ＝ GlobalSize (数据句柄) ' 返回全局内存块大小，就是取出字节集长度内存指针 ＝ GlobalLock (数据句柄) ' 锁定内存对象并返回剪辑板数据指针剪辑版数据.字节集数据 ＝ 取空白字节集 (剪辑版数据.字节集长度) ' 生成缓冲区RtlMoveMemory (取指针_字节集型 (剪辑版数据.字节集数据) , 内存指针, 剪辑版数据.字节集长度) ' 复制出来加入成员 (参_剪辑版数据, 剪辑版数据) ' OK，收工如果真 (取数组成员数 (参_剪辑版数据) ＞ 100) ' 这么多……，估计是复制文件，但是再多估计进程会废了（内存严重怀疑溢出）跳出循环 ()
判断循环尾 ()CloseClipboard () ' 关闭剪辑版
返回 (真)
| 数据类型名 | 公开 | 备 注 | ||||
| 剪辑版数据 | ||||||
| 成员名 | 类 型 | 传址 | 数组 | 备 注 | ||
| 剪辑版数据格式 | 整数型 | |||||
| 文本型数据 | 文本型 | |||||
| 字节集长度 | 整数型 | |||||
| 字节集数据 | 字节集 | |||||
词条作者信息 使用例程