截自我的工具箱部分源码,路径就是你想要的
版本 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
支持库
eSkin
支持库
xplib
支持库
shell
支持库
eAPI
程序集
窗口程序集1
程序集变量
实名,
文本型
程序集变量
图标数,
整数型
子程序
__启动窗口_创建完毕
写到文件
(取运行目录
()
+
“skn”,
#皮肤)
易皮肤_载入皮肤
(取运行目录
()
+
“skn”,
)
XP风格
(3)
编辑框1内容
=
取特定目录
(3)
子程序
_打开_被单击
局部变量
文件名,
文本型
局部变量
n,
整数型
框1
=
{
}
通用对话框1过滤器
=
“资源文件(dll;exe)|dll;exe”
如果真
(通用对话框1打开
())
文件名
=
通用对话框1文件名
实名
=
取短文件名
(文件名)
+
“ico”
n
=
提取资源文件图标
(文件名,
0,
取特定目录
(#临时文件目录)
+
实名,
)
如果
(n
=
0)
信息框
(“该文件没有图标”,
0,
)
否则
框1
=
读入文件
(取特定目录
(#临时文件目录)
+
实名)
如果结束
如果真结束
图标数
=
0
编辑框2内容
=
通用对话框1文件名
图标数
=
提取资源文件图标
(编辑框2内容,
1,
,
)
如果
(图标数
>
0)
信息框
(“该文件内一共有
”
+
到文本
(图标数)
+
“
个图标”,
#信息图标,
“恭喜”)
否则
信息框
(“该文件内无图标哦”,
#警告图标,
“提示信息”)
如果结束
子程序
取短文件名,
文本型
参数
文件名,
文本型
局部变量
m,
文本型
局部变量
短文件名,
文本型
m
=
取文本右边
(文件名,
取文本长度
(文件名)
-
倒找文本
(文件名,
“\”,
,
假))
短文件名
=
取文本左边
(m,
倒找文本
(m,
“”,
,
假)
-
1)
返回
(短文件名)
子程序
_保存_被单击
局部变量
序号,
整数型
浏览文件夹
(“选择要保存到的文件夹”,
)
计次循环首
(图标数,
序号)
提取资源文件图标
(编辑框2内容,
0,
编辑框1内容
+
“图标”
+
到文本
(序号)
+
“ico”,
序号)
_启动窗口标题
=
“正在提取:
”
+
编辑框1内容
+
“图标”
+
到文本
(序号)
+
“ico”
延时
(20)
计次循环尾
()
_启动窗口标题
=
“文件图标提取器”
信息框
(“图标提取完毕”,
#信息图标,
“恭喜”)
以上就是关于易语言怎么取桌面所有软件的图标全部的内容,包括:易语言怎么取桌面所有软件的图标、易语言取exe图标、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)