求帮忙纠正代码

胖橘

百du了一段代码但是复制到易语言就有问题了
https://zhidao.baidu.com/question/502200662.html
贴百du链接不违反版规吧？如果违规麻烦版主帮忙删一下


补充内容 (2024-8-29 23:53):
调试好像有点问题

LEOONL

https://www.eyuyan.la/post/10774.html

胖橘

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
拖放文件名	文本型
路径名	文本型
图片号
图片组	字节集
文件名	文本型
路径	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
拖放对象1.接收文件 ＝ 真
图片组 ＝ 超级列表框1.图片组

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
项目

如果真 (超级列表框1.现行选中项 ＝ -1)  ' 避免有项目/没项目时，运行项目出错
返回 ()
如果真 (超级列表框1.取表项数 () ≥ 1)  ' 有项目时才能运行
项目 ＝ 超级列表框1.取表项数值 (超级列表框1.现行选中项)
执行 (, 路径 [项目], , , )

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
文件后缀名	文本型
文件名1	文本型		0
后缀名	文本型

文件名1 ＝ 分割文本 (接收到的文件路径, #换行符, 1)
拖放文件名 ＝ 文件名1 [1]
路径名 ＝ 拖放文件名
文件后缀名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “.”, , 假))
后缀名 ＝ 文件后缀名
如果 (后缀名 ＝ “exe”)
图片号 ＝ 提取加入图片 (图片组, 拖放文件名, , )


图片号 ＝ 提取加入图片 (图片组, 查询快捷方式 (拖放文件名), , )
超级列表框1.图片组 ＝ 图片组
文件名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “\”, , 假))
文件名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 4)
加入成员 (路径, 路径名)
如果 (图片号 ≠ -1)
超级列表框1.插入表项 (-1, 文件名, 图片号, , , 取数组成员数 (路径))
超级列表框1.插入表项 (-1, 文件名, 0, , , 取数组成员数 (路径))

i支持库列表	支持库注释
edroptarget	拖放支持库
iext	扩展界面支持库一
shell	操作系统界面功能支持库
iext2	扩展界面支持库二

.版本 2<br /> .支持库 edroptarget<br /> .支持库 iext<br /> .支持库 shell<br /> .支持库 iext2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 拖放文件名, 文本型<br /> .程序集变量 路径名, 文本型<br /> .程序集变量 图片号<br /> .程序集变量 图片组, 字节集<br /> .程序集变量 文件名, 文本型<br /> .程序集变量 路径, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())<br /> 拖放对象1.接收文件 ＝ 真<br /> 图片组 ＝ 超级列表框1.图片组<br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 项目<br /> <br /> .如果真 (超级列表框1.现行选中项 ＝ -1)  ' 避免有项目/没项目时，运行项目出错<br />     返回 ()<br /> .如果真结束<br /> .如果真 (超级列表框1.取表项数 () ≥ 1)  ' 有项目时才能运行<br />     项目 ＝ 超级列表框1.取表项数值 (超级列表框1.现行选中项)<br />     执行 (, 路径 [项目], , , )<br /> .如果真结束<br /> <br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 文件后缀名, 文本型<br /> .局部变量 文件名1, 文本型, , "0"<br /> .局部变量 后缀名, 文本型<br /> <br /> 文件名1 ＝ 分割文本 (接收到的文件路径, #换行符, 1)<br /> 拖放文件名 ＝ 文件名1 [1]<br /> 路径名 ＝ 拖放文件名<br /> 文件后缀名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “.”, , 假))<br /> 后缀名 ＝ 文件后缀名<br /> .如果 (后缀名 ＝ “exe”)<br />     图片号 ＝ 提取加入图片 (图片组, 拖放文件名, , )<br /> .否则<br /> <br /> .如果结束<br /> 图片号 ＝ 提取加入图片 (图片组, 查询快捷方式 (拖放文件名), , )<br /> 超级列表框1.图片组 ＝ 图片组<br /> 文件名 ＝ 取文本右边 (路径名, 取文本长度 (路径名) － 倒找文本 (路径名, “\”, , 假))<br /> 文件名 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 4)<br /> 加入成员 (路径, 路径名)<br /> .如果 (图片号 ≠ -1)<br />     超级列表框1.插入表项 (-1, 文件名, 图片号, , , 取数组成员数 (路径))<br /> .否则<br />     超级列表框1.插入表项 (-1, 文件名, 0, , , 取数组成员数 (路径))<br /> .如果结束