GetFileIconByExtension(extension) {
; 确保扩展名前有".",如果没有则加上
if (SubStr(extension, 1, 1) != ".") {
extension := "." extension
}
; 第一步:获取文件扩展名的ProgID
RegRead, ProgID, HKEY_CLASSES_ROOT, %extension%
if (ErrorLevel || ProgID = "")
{
MsgBox, 找不到文件类型关联信息
return
}
; 第二步:获取ProgID对应的默认图标
RegRead, iconInfo, HKEY_CLASSES_ROOT, %ProgID%\DefaultIcon
return iconInfo
}
; 示例:获取 .txt 文件的图标信息
iconInfo := GetFileIconByExtension(".txt")
MsgBox, 文件扩展名 %extension% 的图标路径是: %iconInfo%