易语言黑月文件拖放使用例程-支持win10与多文件

.版本 2

.程序集 程序集1
.程序集变量 对话框, 对话框类

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

对话框.载入 (, 1000, &对话框_创建完毕, , 真)
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 对话框_创建完毕
.参数 窗口句柄, 整数型

对话框.接受拖放 (真)
对话框.通用事件_收到拖放文件 (&对话框_接收拖放)  ' 看子程序说明

.子程序 对话框_接收拖放
.参数 文件名, 整数型
.局部变量 局_文件名, 文本型, , "0"
.局部变量 局_输出, 文本型
.局部变量 i, 整数型

局_文件名 ＝ 分割文本 (指针到文本 (文件名), #换行符, )
局_输出 ＝ “接收到的拖放文件如下：” ＋ #换行符 ＋ #换行符
.计次循环首 (取数组成员数 (局_文件名), i)
    局_输出 ＝ 局_输出 ＋ 局_文件名 [i] ＋ #换行符
.计次循环尾 ()
局_输出 ＝ 取文本左边 (局_输出, 取文本长度 (局_输出) － 2)
对话框.信息框 (局_输出, #确认钮, “test”)

@凌哥