作者： 凌木

.版本 2 .程序集 窗口程序集1 .子程序 文件_复制到剪辑板, 逻辑型, 公开, 将指定文件复制到剪贴板，成功返回真，失败返回假。 .参数 文件名, 文本型, , 参数值为欲复制到剪贴板的文件名文本，如果复制多个文件，那么每个文件路径通过“#换行符”分隔（同拖放对象）。 .参数 状态, 逻辑型, 可空, 默认为假。真=剪切；假=复制 .局部变量 sTmp, 字节集 .局部变量 dfs, 剪贴板_置文件 .局部变量 hGlobal, 整数型 .局部变量 i, 整数型 .局部变量 ret, 整数型 .局部变量 lngFormat, 整数型 .局部变量 lpGlobal, 整数型 .局部变量 文件名组, 文本型, , "0" 文件名组 ＝ 分割文本 (文件名, #换行符, ) .如果真 (OpenClipboard (0) ＝ 0) 返回 (假) .如果真结束 EmptyClipboard () .计次循环首 (取数组成员数 (文件名组), i) sTmp ＝ sTmp ＋ 到字节集 (文件名组 [i]) ＋ { 0 } .计次循环尾 () sTmp ＝ sTmp ＋ { 0 } hGlobal ＝ GlobalAlloc (66, 20 ＋ 字节集_取长度 (sTmp)) .如果真 (hGlobal ＝ 0) CloseClipboard () 返回 (假) .如果真结束 lpGlobal ＝ GlobalLock (hGlobal) dfs.pFiles ＝ 20 RtlMoveMemory (lpGlobal, dfs, 20) RtlMoveMemory_字节集 (lpGlobal ＋ 20, sTmp, 字节集_取长度 (sTmp)) _解锁全局内存块 (hGlobal) ret ＝ SetClipboardData (15, hGlobal) GlobalFree (hGlobal) .如果真 (状态 且 ret ＞ 0) lngFormat ＝ RegisterClipboardFormatA (“Preferred DropEffect”) hGlobal ＝ GlobalAlloc (66, 4) RtlMoveMemory_整数型 (GlobalLock (hGlobal), 2, 4) _解锁全局内存块 (hGlobal) SetClipboardData (lngFormat, hGlobal) GlobalFree (hGlobal) .如果真结束 CloseClipboard () 返回 (ret ＞ 0) .子程序 字节集_取长度, 整数型 .参数 字节集, 字节集 .局部变量 返回值, 整数型 .局部变量 Address, 整数型 置入代码 ({ 139, 93, 8, 139, 27, 139, 91, 4, 137, 93, 252 }) ' 取字节集长度 ' 如果真 (字节集 ＝ { }) ' 返回 (0) ' Address ＝ 字节集_取指针 (字节集) ' RtlMoveMemory_Int (返回值, Address － 4, 4) 返回 (返回值)