易语言文件拖拽拖进获取路径

清除数组 (集_文件数组)
A ＝ 超级列表框1.取被选择表项 ()
.如果真 (取数组成员数 (A) ＝ 0)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (A), B)
加入成员 (集_文件数组, 超级列表框1.取标题 (A [B], 1))
.计次循环尾 ()
rHook ＝ SetWindowsHookEx (0, &处理消息, GetModuleHandle (0), 0)

集_表达式.创建 (“[A-Z]:\\”, 假)
拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())
A ＝ 寻找文件 (取特定目录 (9) ＋ “Web\Wallpaper\*.*”, )
.判断循环首 (A ≠ “”)
B ＝ 超级列表框1.插入表项 (, , 0, , , )
超级列表框1.置标题 (B, 1, 取特定目录 (9) ＋ “Web\Wallpaper\” ＋ A)
A ＝ 寻找文件 (, )
.判断循环尾 ()