易语言怎么取桌面所有软件的图标
展开全部
截自我的工具箱部分源码,路径就是你想要的
.版本 2
.支持库 edroptarget
.支持库 iext2
.支持库 iext
.支持库 eAPI
.程序集 启动窗口程序集
.程序集变量 图片组, 字节集
.程序集变量 配置文件名, 文本型
.程序集变量 接收文件, 文本型
.子程序 __启动窗口_创建完毕
.局部变量 节名数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计录, 整数型
.局部变量 文件名, 文本型, , "0"
.局部变量 游戏名称, 文本型
.局部变量 下标, 整数型
拖放对象1.注册拖放控件 (超级列表框.取窗口句柄 ())
图片组 = 建空图片组 (32, 32)
配置文件名 = 取运行目录 () + “\潇潇大作.ini”
节名数组 = 取配置节名 (配置文件名)
.计次循环首 (取数组成员数 (节名数组), 计录)
提取加入图片 (图片组, 读配置项 (配置文件名, 节名数组 [计录], “路径”, ), 0)
.计次循环尾 ()
超级列表框.图片组 = 图片组
.计次循环首 (取图片组图片数 (图片组), 计次)
文件名 = 分割文本 (读配置项 (配置文件名, 节名数组 [计次], “路径”, ), “\”, )
下标 = 取数组成员数 (文件名)
文件名 = 分割文本 (文件名 [下标], “.”, )
超级列表框.插入表项 (-1, 文件名 [1], 计次 - 1, , , )
.计次循环尾 ()
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 最大下标, 整数型
.局部变量 游戏名, 文本型
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 路径, 文本型, , "0"
接收文件 = 接收到的文件路径
路径 = 分割文本 (取快捷方式目标 (接收到的文件路径, , , , , , , ), “\”, )
.如果 (取数组成员数 (路径) > 1)
最大下标 = 取数组成员数 (路径)
路径 = 分割文本 (路径 [最大下标], “.”, )
游戏名 = 路径 [1]
写配置项 (配置文件名, 游戏名, “路径”, 取快捷方式目标 (接收到的文件路径))
提取加入图片 (图片组, 取快捷方式目标 (接收到的文件路径), 0)
超级列表框.图片组 = 图片组
超级列表框.插入表项 (-1, 游戏名, 取图片组图片数 (图片组) - 1, , , )
.否则
' 信息框 (“必须是快捷方式”, 0, “提示”)
a = 分割文本 (接收到的文件路径, “\”, )
b = 分割文本 (a [5], “.”, )
.如果 (b [2] = “txt”)
信息框 (“暂不支持TXT文本加入。”, 0, “阿哦!”)
.否则
游戏名 = b [1]
写配置项 (配置文件名, 游戏名, “路径”, 接收到的文件路径)
提取加入图片 (图片组, 接收到的文件路径, 0, )
超级列表框.图片组 = 图片组
超级列表框.插入表项 (-1, 游戏名, 取图片组图片数 (图片组) - 1, , , )
.如果结束
.如果结束
.版本 2
.支持库 edroptarget
.支持库 iext2
.支持库 iext
.支持库 eAPI
.程序集 启动窗口程序集
.程序集变量 图片组, 字节集
.程序集变量 配置文件名, 文本型
.程序集变量 接收文件, 文本型
.子程序 __启动窗口_创建完毕
.局部变量 节名数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计录, 整数型
.局部变量 文件名, 文本型, , "0"
.局部变量 游戏名称, 文本型
.局部变量 下标, 整数型
拖放对象1.注册拖放控件 (超级列表框.取窗口句柄 ())
图片组 = 建空图片组 (32, 32)
配置文件名 = 取运行目录 () + “\潇潇大作.ini”
节名数组 = 取配置节名 (配置文件名)
.计次循环首 (取数组成员数 (节名数组), 计录)
提取加入图片 (图片组, 读配置项 (配置文件名, 节名数组 [计录], “路径”, ), 0)
.计次循环尾 ()
超级列表框.图片组 = 图片组
.计次循环首 (取图片组图片数 (图片组), 计次)
文件名 = 分割文本 (读配置项 (配置文件名, 节名数组 [计次], “路径”, ), “\”, )
下标 = 取数组成员数 (文件名)
文件名 = 分割文本 (文件名 [下标], “.”, )
超级列表框.插入表项 (-1, 文件名 [1], 计次 - 1, , , )
.计次循环尾 ()
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 最大下标, 整数型
.局部变量 游戏名, 文本型
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 路径, 文本型, , "0"
接收文件 = 接收到的文件路径
路径 = 分割文本 (取快捷方式目标 (接收到的文件路径, , , , , , , ), “\”, )
.如果 (取数组成员数 (路径) > 1)
最大下标 = 取数组成员数 (路径)
路径 = 分割文本 (路径 [最大下标], “.”, )
游戏名 = 路径 [1]
写配置项 (配置文件名, 游戏名, “路径”, 取快捷方式目标 (接收到的文件路径))
提取加入图片 (图片组, 取快捷方式目标 (接收到的文件路径), 0)
超级列表框.图片组 = 图片组
超级列表框.插入表项 (-1, 游戏名, 取图片组图片数 (图片组) - 1, , , )
.否则
' 信息框 (“必须是快捷方式”, 0, “提示”)
a = 分割文本 (接收到的文件路径, “\”, )
b = 分割文本 (a [5], “.”, )
.如果 (b [2] = “txt”)
信息框 (“暂不支持TXT文本加入。”, 0, “阿哦!”)
.否则
游戏名 = b [1]
写配置项 (配置文件名, 游戏名, “路径”, 接收到的文件路径)
提取加入图片 (图片组, 接收到的文件路径, 0, )
超级列表框.图片组 = 图片组
超级列表框.插入表项 (-1, 游戏名, 取图片组图片数 (图片组) - 1, , , )
.如果结束
.如果结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询