如何获得文件默认外壳程序的图标...

Question

如题，比如
获得。EXE文件在Explorer中的图标，获得。DLL在Explorer中的图标，获得。DOC在Explorer中的图标...
谢谢各位了

Answer 1

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Sub Command1_Click()
Dim icon_n As Long
Dim icon_filename As String
Dim hmodule As Long
    icon_filename = "F:\CALC.EXE"'这里填你要取图标的程序路径
    Picture1.Cls
    hmodule = GetModuleHandle(icon_filename) '取得文件句柄
    icon_n = ExtractIcon(hmodule, icon_filename, 0)
    DrawIcon Picture1.hdc, 0, 0, icon_n '画到Picture1中
End Sub

Answer 2

Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Answer 3

我想要的并不是文件里的图标
而是文件在Explorer中的图标...
在Explorer中
所有Dll文件的图标都是一致的（由系统提供）
所有INF文件的图标也都是一样的（也是由系统提供）
mp3文件的图标为默认播放器提供的图标
Doc文件的图标是用Wordpad或Office提供
and so on...
我想应该有办法从系统那里获得