资源管理器是如何取得各文件的图标，并显示出来的？

。。。这是什么问题?

这是一个很好的问题,昨晚太匆忙,可能我说的不太清楚吧?
你可能写过类似资源管理器的程序吧,我想问你,你是如何显示各文件(包括文件夹)的图标的,换句话说你是如何(从什么地方)读取到这些信息的??

例如下面的截图:

LISTVIEW控件可以``

大姐 我当然知道listview可以显示图标,我关心的是如何取得这些图标.从什么地方读取,不至于让我事先在imagelist中添加我需要的图标吧.(在你不知道这些图标前如何添加到imagelist中)

美女 非常感谢 我要的就是这个效果

美女 你看多这个程序的代码吗?我的天,黑压压一片呀!
如果看过,麻烦你给我扼要的讲一下,我就想知道它是如何取得图标的

[此贴子已经被作者于2007-4-17 12:49:36编辑过]

Option Explicit

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 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 total As Long

Dim p(50) As Long

Dim i As Integer

Me.Picture1.Cls

Me.CommonDialog1.Filter = "图标|*.Exe;*.Ico;*.Dll"

Me.CommonDialog1.ShowOpen

If Dir(Me.CommonDialog1.filename) <> "" Then

If ExtractIcon(App.hInstance, Me.CommonDialog1.filename, -1) = 0 Then '如果没有图标

MsgBox "No Icon!"

Else

total = ExtractIcon(App.hInstance, Me.CommonDialog1.filename, -1)

'取得总图标数

For i = 0 To total - 1

p(i) = ExtractIcon(App.hInstance, Me.CommonDialog1.filename, i) '读取每个图标

Next i

For i = 0 To total - 1 '依次显示每个图标

DrawIcon Picture1.hdc, 34 * i, 0, p(i)

Next i

End If

End If

End Sub

原来是这样，我以前看过一个关于图标提取的程序，大致就是那样

刚开始我也想过这样实现，在picturebox还好实现，但是到了 listview中就没辙了，美女，你试过在listview中显示吗？我应该如何将图标draw到listview上呢？

你给我的 那个程序中是用这种思路吗？