易语言制作网吧游戏菜单拖动桌面快捷键直接进入超级列表框源码大虾帮忙，非常感谢。
。装配窗装配1
。程序集变量拖放文件名，文本类型
。程序集变量路径名，文本类型。
。汇编可变图片号
。汇编变量图像组，字节组
。汇编变量文件名，文本类型。
。程序集变量路径，文本类型，“0”
。子程序_ _开始窗口_已创建
拖放对象1。注册拖放控件(_开始窗口。获取窗口句柄())
拖放对象1。接收文件=真。
图片组=超级列表框1。图片组
。subroutine _ Hyperlist Box 1 _被双击，逻辑类型。
。参数横向位置，整数类型
。整型参数的垂直位置
参数功能键状态，整数类型
。局部变量项目
。如果为真(超级列表框1。当前选定项=-1)'当有项目/没有项目时避免运行项目错误。
Return()
如果真的结束了。
。如果为真(超级列表框1。取项数()≥ 1)'，只有有项目时才能运行。
Item =超级列表框1。取表项值(超级列表框1。当前选择的项目)。
执行(，路径[项目]，，)
如果真的结束了。
。子程序_拖放对象1_获取文件
。参数text type接收的文件路径。
。本地变量文件后缀，文本类型
。本地变量文件名1，文本类型，，" 0 "
局部变量后缀，文本类型
文件名1 =拆分文本(接收文件路径，# newline，1)
拖放文件名=文件名1 [1]
路径名=拖放文件名
文件后缀名称=取文本的右侧(路径名，取文本的长度(路径名)-向后查找文本(路径名，“)，，假))
后缀=文件后缀
If(后缀= "exe ")
图片号=通过提取添加图片(图片组，拖放文件名，，)
否则。
图片号=通过提取添加图片(图片组，查询快捷方式(拖放文件名)，，)
如果结束了
超级列表框1。图片组=图片组
文件名=取文本的右侧(路径名，取文本的长度(路径名)-向后查找文本(路径名，" \ "，false))
文件名=取左侧文本(文件名，取文本长度(文件名)-4)
添加成员(路径，路径名)
。If(图片编号≦-1)
超级列表框1。插入表项(-1，文件名，图片号，，，取数组成员数(路径))。
否则。
超级列表框1。插入表项(-1，文件名，0，，，取数组成员数(路径))。
如果结束了