.版本 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)
易语言 从注册表获取图标句柄 支持路径或后缀名
最新推荐文章于 2020-09-25 00:15:02 发布