易语言获取文件类型图标(注册表内)

还是那句话,这段时间在做远程控制,做文件管理时想顺便美化些,下面是本人摸索而来的取文件类型图标的源码,如有错误,请指出!

 

支持库 iext2

子程序名 返回值类型 公开 备注
获取文件类型图标 字节集
参数名 类型 参考 可空 数组 备注
扩展名 文本型
宽度 整数型
高度 整数型
变量名 类型 静态 数组 备注
文件类型 文本型
图标信息 文本型 0
图片组 字节集
图片引索 整数型
文件类型 = 取文本注册项 (1, 扩展名 + “\”, )
图片引索 = -1
图片组 = 建空图片组 (宽度, 高度)
判断开始 (文件类型 ≠ “”)
文件类型 = 取文本注册项 (1, 文件类型 + “\DefaultIcon\”, ) ‘ 文件夹的图标类型为 directory
图标信息 = 分割文本 (文件类型, “,”, 2)
图片引索 = 提取加入图片 (图片组, 图标信息 [1], 到数值 (图标信息 [2]), 真)
默认
判断结束
判断开始 (图片引索 = -1)
图片引索 = 提取加入图片 (图片组, “c:\windows\system32\shell32.dll”, 0, 真)
默认
判断结束
返回 (取图片组图片 (图片组, 图片引索, ))
‘ 此源码出自 YXZ’s Blog http://yxz.me/ 转载请保留此句
‘ Transformed by YXZ’s e-Assist
下面是易语言源代码,请直接复制使用!
.版本 2
.支持库 iext2

.子程序 获取文件类型图标, 字节集
.参数 扩展名, 文本型
.参数 宽度, 整数型
.参数 高度, 整数型
.局部变量 文件类型, 文本型
.局部变量 图标信息, 文本型, , “0”
.局部变量 图片组, 字节集
.局部变量 图片引索, 整数型

文件类型 = 取文本注册项 (1, 扩展名 + “\”, )
图片引索 = -1
图片组 = 建空图片组 (宽度, 高度)
.判断开始 (文件类型 ≠ “”)
文件类型 = 取文本注册项 (1, 文件类型 + “\DefaultIcon\”, ) ′ 文件夹的图标类型为 directory
图标信息 = 分割文本 (文件类型, “,”, 2)

图片引索 = 提取加入图片 (图片组, 图标信息 [1], 到数值 (图标信息 [2]), 真)

.默认

.判断结束
.判断开始 (图片引索 = -1)
图片引索 = 提取加入图片 (图片组, “c:\windows\system32\shell32.dll”, 0, 真)

.默认

.判断结束
返回 (取图片组图片 (图片组, 图片引索, ))

′ 此源码出自 YXZ′s Blog http://yxz.me/ 转载请保留此句

放张成品图:
成品图
(多做些练习有益于增长知识啊)

此源码为本站独创,如有雷同,纯属抄袭本站。

(转载请注明出处YXZ’s Blog http://www.cleveryxz.com/

原创文章,转载请注明: 转载自YXZ’s Blog

本文链接地址: 易语言获取文件类型图标(注册表内)

3 Responses

  1. Higor 2012 年 3 月 26 日 / 上午 11:54

    You saved me a lot of hslsae just now.

  2. xiaochong 2013 年 11 月 28 日 / 下午 1:13

    主题好简洁

  3. gamewoog.com 2013 年 12 月 28 日 / 上午 6:19

    Hi there, I wish for to subscribe for this blog to get
    most recent updates, therefore where can i do it please help.

发表评论

电子邮件地址不会被公开。 必填项已用*标注

您可以使用这些HTML标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>