易语言怎么取桌面所有软件的图标
2个回答
展开全部
截自我的工具箱部分源码,路径就是你想要的
.版本
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,
,
,
)
.如果结束
.如果结束
博思aippt
2024-07-20 广告
2024-07-20 广告
博思AIPPT是基于ai制作PPT的智能在线工具,它提供了4种AI制作PPT的方式,包括AI生成大纲、AI直接生成PPT、文本生成PPT、AI提炼文档生成PPT,一站式集成多种AI生成PPT的方式,可满足办公用户的不同需求和使用场景。ai生...
点击进入详情页
本回答由博思aippt提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询