如何根据文件后缀名获取其系统关联的图标

sanmoking

能用是能用，在gui上创建一个gdi环境
netegg 发表于 2010-2-5 10:33

    不会

netegg

回复 31# sanmoking

不好意思，我也不会

afan

额也不会……
_WinAPI_ShellGetFileInfo , DllStructGetData 后返回的 $hIcon 是图标的句柄，不知道用 GUICtrlSendMsg 操作可不可行。

qwg192800

差函数文件啊

afan

回复 34# qwg192800

WinAPIEx.au3
    http://www.autoitx.com/forum.php ... amp;fromuid=7644923

jonyzhr

运行出错，提示$tSHFILEINFO = _WinAPI_ShellGetFileInfo($Ext, BitOR($SHGFI_ICON, $SHGFI_USEFILEATTRIBUTES))
调用参数错误。

itljl

回复 36# jonyzhr

的确。。。

mfknui

先收了。以后用得到

afan

运行出错，提示$tSHFILEINFO = _WinAPI_ShellGetFileInfo($Ext, BitOR($SHGFI_ICON, $SHGFI_USEFILEATTRIBU ...
jonyzhr 发表于 2010-8-9 08:59

回复  jonyzhr

的确。。。
itljl 发表于 2010-8-22 14:09

比较老的帖子了，_WinAPI_ShellGetFileInfo() 现在的版本参数设置不同，要自行修改~
如果不想修改，就用 35# 提供的原 WinAPIEx.au3

neity

Func _GUIImageList_AddAssociatedIcon($hWnd, $sPath, $fSmall = 0)
   
    Local $Index, $Flags = $SHGFI_ICON, $tInfo = DllStructCreate($tagSHFILEINFO)

    If Not _WinAPI_PathIsDirectory($sPath) Then
        $Flags = BitOR($Flags, $SHGFI_USEFILEATTRIBUTES)
    EndIf
    If $fSmall Then
        $Flags = BitOR($Flags, $SHGFI_SMALLICON)
    EndIf
    _WinAPI_ShellGetFileInfo($sPath, $Flags, 0, $tInfo)
    If @error Then
        Return SetError(1, 0, -1)
    EndIf
    $hIcon = DllStructGetData($tInfo, 'hIcon')
    $Index = _GUIImageList_ReplaceIcon($hWnd, -1, $hIcon)
    _WinAPI_DestroyIcon($hIcon)
    Return $Index
EndFunc   ;==>_GUIImageList_AddAssociatedIcon

guang19831217

学习下，看看先。

浪迹红客

为什么运行
#include <GUIListView.au3>

#include <GUIImageList.au3>

#include <WinAPIEx.au3>

#include <WindowsConstants.au3>

#include <File.au3>



Dim $folder = FileSelectFolder('请选择目标文件夹', '', 4, @MyDocumentsDir)

If @error Then Exit (Msgbox(48, '退出', '没有选择文件夹，退出'))

Dim $a = _FileListToArray($folder, '*', 1)

If $a = 0 Then Exit (Msgbox(48, '退出', '没有选择文件夹，退出'))



GUICreate('MyIconGUI', 280, 400)

$ListView = GUICtrlCreateListView('', 10, 10, 260, 344, $LVS_NOCOLUMNHEADER)

_GUICtrlListView_SetView($ListView, 1)

_GUICtrlListView_InsertColumn($ListView, 0, '', 220)

$hImageList = _GUIImageList_Create(32, 32, 6)

_GUICtrlListView_SetImageList($ListView, $hImageList, 0)

$Button = GUICtrlCreateButton('退出', 105, 361, 70, 23)



For $i = 1 To $a[0]

        $Ext = $folder & '\' & $a[$i]

        $tSHFILEINFO = _WinAPI_ShellGetFileInfo($Ext, BitOR($SHGFI_ICON, $SHGFI_USEFILEATTRIBUTES))

        $hIcon = DllStructGetData($tSHFILEINFO, 'hIcon')

        _GUIImageList_ReplaceIcon($hImageList, -1, $hIcon)

        _GUICtrlListView_AddItem($ListView, $a[$i], $i -1)

        _WinAPI_FreeIcon($hIcon)

Next

GUISetState()



While 1

        $Msg = GUIGetMsg()

        Switch $Msg

                Case -3, $Button

                        ExitLoop

        EndSwitch

WEnd
复制代码

出现D:\Program Files\autoit3\Include\WinAPIEx.au3(308,35) : ERROR: $PROCESS_VM_READ previously declared as a 'Const'
Global Const $PROCESS_VM_READ=0x10
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Program Files\autoit3\Include\WinAPIEx.au3(309,48) : ERROR: $PROCESS_QUERY_INFORMATION previously declared as a 'Const'
Global Const $PROCESS_QUERY_INFORMATION = 0x400
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Program Files\autoit3\新建 AutoIt v3 脚本.au3 - 2 error(s), 0 warning(s)
($Li
如何解决？

nerdpal

运行出错，提示$tSHFILEINFO = _WinAPI_ShellGetFileInfo($Ext, BitOR($SHGFI_ICON, $SHGFI_USEFILEATTRIBU ...
jonyzhr 发表于 2010-8-9 08:59

#include <WinAPIEx.au3>
Error :函数call里面包含错误的参数

#include "WinAPIEx.au3"
Lin 308 ... WinAPIEx.au3
Global Const $PROCESS_VM_READ=0x10
Global Const ^Error

Error : 不能重新声明一个常量

哪位帮忙解决一下啊,多谢

nerdpal

自己解决了, 在WinAPIEx.au3中注释Lin 308-309

#include "WinAPIEx.au3"

;Global Const $PROCESS_VM_READ=0x10
;Global Const $PROCESS_QUERY_INFORMATION = 0x400

iamwonvy

为什么我运行后有错误
_WinAPI_ShellGetFileInfo() 调用参数的数量错误.