191038929 发表于 2020-3-9 20:57:17

以前写的有点看不懂了

.版本 2
.支持库 edroptarget
.支持库 iext2

.程序集 窗口程序集_启动窗口

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

编辑框1.内容 = 接收到的文件路径


.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())


.子程序 _拖放对象1_得到文本
.参数 接收到的文本, 文本型

编辑框2.内容 = 接收到的文本


.子程序 _拖放对象1_得到URL
.参数 接收到的URL, 文本型

编辑框1.内容 = 接收到的URL


.子程序 _拖放对象1_得到超文本
.参数 接收到的超文本, 文本型

超级编辑框1.内容 = 接收到的超文本


.子程序 _按钮1_被单击

超级编辑框1.内容 = “”


.子程序 _按钮2_被单击

_启动窗口.销毁 ()


hao520 发表于 2025-11-24 18:15:56

_启动窗口.销毁 ()

hao523 发表于 2025-11-24 19:42:13

.支持库 iext2
页: [1]
查看完整版本: 以前写的有点看不懂了