.版本 2 .子程序 剪辑版置文本Unicode, 逻辑型, 公开, 将指定文本复制到剪贴板。 .参数 Unicode文本字节集, 字节集 .局部变量 htext, 整数型 .局部变量 ret, 整数型 .如果真 (OpenClipboard (0) ＝ 0) 返回 (假) .如果真结束 EmptyClipboard () htext ＝ GlobalAlloc (66, 取字节集长度 (Unicode文本字节集) ＋ 1) .如果真 (htext ≠ 0) CopyMemory_字节集 (GlobalLock (htext), Unicode文本字节集, 取字节集长度 (Unicode文本字节集)) GlobalUnlock (htext) ret ＝ SetClipboardData (13, htext) GlobalFree (htext) .如果真结束 CloseClipboard () 返回 (ret ≠ 0)