论坛 › 『 提问交流 』 › 如何获取文件的图标

solo_k 发表于 2014-1-22 10:49:26

如何获取文件的图标

论坛上好像只有获取exe文件图标的帖子
可是我想获取txt，jpg，doc等各种文件的那个小图标，请问下有什么方法呀

solo_k 发表于 2014-1-22 10:50:16

求高手指点啊

afan 发表于 2014-1-22 10:52:58

这些信息都在注册表中，自己多琢磨下

netegg 发表于 2014-1-25 13:29:46

_WinAPI_ShellExtractAssociatedIcon

netegg 发表于 2014-1-25 14:04:03

;#Include <APIConstants.au3>
#Include <GUIListView.au3>
#Include <GUIImageList.au3>
#Include <WinAPIEx.au3>

Opt('MustDeclareVars', 1)

Global $hForm, $Msg, $Button, $ListView, $hImageList, $hIcon, $Key, $Count = 1, $First = False
Global $tSHFILEINFO = DllStructCreate($tagSHFILEINFO)

Dim $Ext =

RegRead('HKCR\.x', '')

While 1
        $Key = RegEnumKey('HKCR', $Count)
        If @error Then
                ExitLoop
        EndIf
        If StringLeft($Key, 1) = '.' Then
                RegRead('HKCR\' & $Key, '')
                If Abs(@error) <> 1 Then
                        $Ext += 1
                        If $Ext > UBound($Ext) - 1 Then
                                ReDim $Ext
                        EndIf
                        $Ext[$Ext] = $Key
                EndIf
                $First = 1
        Else
                If $First Then
                        ExitLoop
                EndIf
        EndIf
        $Count += 1
WEnd

$hForm = GUICreate('MyGUI', 280, 391)

$ListView = GUICtrlCreateListView('', 10, 10, 260, 344, BitOR($LVS_DEFAULT, $LVS_NOCOLUMNHEADER), $WS_EX_CLIENTEDGE)
_GUICtrlListView_SetExtendedListViewStyle($ListView, BitOR($LVS_EX_DOUBLEBUFFER, $LVS_EX_INFOTIP))
_GUICtrlListView_InsertColumn($ListView, 0, '', 238)
$hImageList = _GUIImageList_Create(16, 16, 5, 1)
_GUICtrlListView_SetImageList($ListView, $hImageList, 1)
$Button = GUICtrlCreateButton('OK', 105, 361, 70, 23)

For $i = 1 To $Ext
        $hIcon = _WinAPI_ShellExtractAssociatedIcon($Ext[$i], 1)
        _GUIImageList_ReplaceIcon($hImageList, -1, $hIcon)
        _GUICtrlListView_AddItem($ListView, $Ext[$i], $i - 1)
        _WinAPI_DestroyIcon($hIcon)
Next

GUISetState()

While 1
        $Msg = GUIGetMsg()
        Switch $Msg
                Case -3, $Button
                        ExitLoop
        EndSwitch
WEnd

kkahk 发表于 2014-2-6 22:22:32

谢谢netegg的分享哈

zxcslove 发表于 2014-2-9 15:26:14

解决方案太犀利了

wilask 发表于 2014-2-24 17:46:42

学习了，谢谢5楼

ycy 发表于 2014-2-25 15:31:42

netegg 发表于 2014-1-25 14:04 http://www.autoitx.com/images/common/back.gif

我为什么都是错误啊

header 发表于 2014-2-25 18:35:03

netegg的代码很犀利~！

xms77 发表于 2014-2-26 12:53:31

回复 5# netegg
蛋神果然很是牛叉啊！

查看完整版本: 如何获取文件的图标