.版本 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)
作者: 易编程
.版本 2
.程序集 窗口程序集_窗口1
.程序集变量 拖放对象, 类组件_拖放对象
.子程序 _窗口1_创建完毕
拖放对象.拖放对象_注册 (取窗口句柄 (), &子程序1)
.子程序 子程序1
.参数 参数, 整数型
.参数 长度, 整数型
MessageBoxW (取窗口句柄 (), 指针到字节集 (参数, 长度), #信息图标, #信息图标)

SendMessage发送拖拽消息 Unicode和ANSIC的文件