分类
易语言例程

易语言置Unicode文本到剪辑版

.版本 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)
分类
易语言例程

拖放对象模块 W版 支持Unicode字符串

.版本 2 .程序集 窗口程序集_窗口1 .程序集变量 拖放对象, 类组件_拖放对象 .子程序 _窗口1_创建完毕 拖放对象.拖放对象_注册 (取窗口句柄 (), &子程序1) .子程序 子程序1 .参数 参数, 整数型 .参数 长度, 整数型 MessageBoxW (取窗口句柄 (), 指针到字节集 (参数, 长度), #信息图标, #信息图标)
分类
易语言例程

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

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

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