易语言从注册表获取图标句柄支持路径或后缀名

原创于 2020-07-05 13:52:58 发布 · 633 阅读

0 ·

CC 4.0 BY-SA版权

易语言专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一个通过读取Windows注册表来获取文件或文件扩展名对应图标的算法。该算法能够处理绝对路径和扩展名，从注册表中查找默认图标路径，并使用系统API ExtractIconA来提取图标。

.版本 2

.子程序 HW_GetIconFromReg, 整数型, , 返回图标句柄,用 DestroyIcon () 释放
.参数 PathOrExtension, 文本型, , 可以传入文件绝对路径或者扩展名
.局部变量 Extension, 文本型
.局部变量 KeyName, 文本型
.局部变量 DefaultIcon, 文本型
.局部变量 Path, 文本型, , , 文件路径
.局部变量 nIcon, 文本型, , , 图标索引
.局部变量 hIcon, 整数型

Extension ＝ PathFindExtensionA (PathOrExtension)
.如果真 (Extension ＝ “”)
    Extension ＝ PathOrExtension
.如果真结束
KeyName ＝ 取文本注册项 (#根类, Extension ＋ “\”, )
.判断开始 (KeyName ＝ “”)
    KeyName ＝ “Directory”
.默认
    DefaultIcon ＝ 取文本注册项 (#根类, KeyName ＋ “\defaulticon\”, )
.判断结束

.判断开始 (DefaultIcon ＝ “%1”)
    .如果真 (PathFileExistsA (PathOrExtension) ＝ 假)
        返回 (0)  ' //未找到
    .如果真结束
    Path ＝ PathOrExtension
    nIcon ＝ “0”
.判断 (DefaultIcon ＝ “”)
    Path ＝ “C:\Windows\System32\Shell32.dll”
    nIcon ＝ “0”
.默认
    Path ＝ 文本_取左边 (DefaultIcon, “,”)
    nIcon ＝ 文本_取右边 (DefaultIcon, “,”)
.判断结束
返回 (ExtractIconA (0, Path, 到整数 (nIcon)))
' %SystemRoot%\System32\ 可以直接打开
' hIcon ＝ ExtractIconA (0, Path, nIcon)
' DestroyIcon (hIcon)