VB 获取任意文件默认图标

乘简

1. Private Type SHFILEINFO
   
2.     hIcon As Long                       '  out: icon
   
3.     iIcon As Long                       '  out: icon index
   
4.     dwAttributes As Long                '  out: SFGAO_ flags
   
5.     szDisplayName As String * 260       '  out: display name (or path)
   
6.     szTypeName As String * 80           '  out: type name
   
7. End Type
   
8. Public Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
   
9. Public Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
   
10. 
    
11. Private Function 获取文件类型图标(t3 As String) As Long
    
12.     Dim FI As SHFILEINFO
    
13.     Dim ts As String
    
14.    
    
15.     ts = App.Path & "tmp." & t3     '自动生成临时文件路径与文件名
    
16.     Open ts For Binary As #1    '创建文件
    
17.     Close #1                    '关闭文件，此时产生空文件
    
18.    
    
19.     SHGetFileInfo ts, 0, FI, Len(FI), &H100     '获取类型图标
    
20.    
    
21.     Kill ts                     '删除文件
    
22.    
    
23.     'DrawIcon Picture1.hdc, 0, 0, FI.hIcon  '可以用此函数显示出来
    
24.     获取文件类型图标 = FI.hIcon             '返回句柄，接下来可以用DrawIcon来显示
    
25. End Function
    

复制代码

乘简

有一个手误，里面的Path改为app.path & "\tmp." & t3，这里的t3为扩展名

0xAA55

乘简 发表于 2017-11-29 16:55
有一个手误，里面的Path改为app.path & "\tmp." & t3，这里的t3为扩展名

然而你并没有把DeleteObject也声明了。。这个图标是需要销毁的。

雨天

不错  好东西

大宝

来支持一下

东东哥

这个Kill ts，我以为把文件也删除了。