Как получить в ListView иконку файла

[AnGI_Burn]

Как можно получить в ListView иконку файла? Причем не только exe и dll, а любого файла?

[Денис]

AnGI_Burn
То есть ты уже получил для exe и dll? Дай на код позырить?

...и да, загрузить иконку для файла, не содержащего иконку, загрузить иконку легко: просто отыскиваешь в реестре, зарегистрирован ли этот файл. там прописано, какое приложение и какая иконка с ним связаны. и просто загружаешь иконку по указанному пути. используя код для загрузки иконки из файла с иконкой (как exe и dll)

... ах да, и еще: если в реестре не зарегистрирован искомый тип, или для него не прописана иконка, тогда грузишь дефолтную, либо свою, либо из shell32,0

... ну и наконец поиск по слову ExtractIcon дает более чем исчерпывающие результаты

[AnGI_Burn]

Дай на код позырить?

Чё там зырить то? Поиск по слову ExtractIcon дает такие же исчерпывающие результаты как и этот пример.

[AnGI_Burn]

Вот нашел наконец-то решение http://bbs.vbstreets.ru/viewtopic.php?t=9941&start=0&postdays=0&postorder=asc&highlight=

[Lumen]

Я помнится когда-то делал так: с помощью SHGetFileInfo вытаскивал иконку, потом рисовал её на PictureBox'e с помощью ImageList_Draw с флагом ILD_TRANSPARENT, а потом уже добавлял в ассоциированный с ListView ImageList картинку с этого пикчурбокса. То есть что-то типа такого:

Код: Выделить всё

Private Sub AddIcon2List(lpstrFile As String, lngIndex As Long)
Dim hImage As Long, udtFI As SHFILEINFO
hImage = SHGetFileInfo(lpstrFile, ByVal 0&, udtFI, Len(udtFI), SHGFI_SYSICONINDEX Or SHGFI_SMALLICON)
Picture1.Cls
ImageList_Draw hImage, udtFI.iIcon, Picture1.hdc, 0, 0, ILD_TRANSPARENT
ImageList2.ListImages.Add , , Picture1.Image
ListView1.SmallIcons = ImageList1
ListView1.ListItems.Add , , lpstrFile, , lngIndex
End Sub


Может кто-то скажет, что криво, на зато работает. Проект, где данный код используется, писался года 2 назад и у меня нет желания переписывать его...