значки в listview

← →
Dmitrij_K (2004-05-17 11:21) [0]

Здравствуйте.
У меня возникла такая проблема :
есть listview во списком файлов, для получения значков соответсвующих расширению я использую такую конструкцию

ImageListHandle := SHGetFileInfo("C:\",
0,
FileInfo,
SizeOf(FileInfo),
SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
SendMessage(FileListView.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImageListHandle);

...
...
...

FillChar(FileInfo, SizeOf(FileInfo), #0);
Flags := SHGFI_SYSICONINDEX or SHGFI_icon or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES;
// получаваю описание файла
SHGetFileInfo(PChar(Ext),
FILE_ATTRIBUTE_NORMAL,
FileInfo,
SizeOf(FileInfo),
Flags);
Result := FileInfo.iIcon;

Так вот проблемав том, как получить значок папки. Научным методом тыка я выяснил что Ext = ".folder", но это работает только в xp. Как сделать в других виндах???
И еще не в xp не находит значок html файла.

← →
[lamer]Barmaglot © (2004-05-17 11:35) [1]

А чем не устраивает ExtractAssociatedIcon?

← →
Dmitrij_K (2004-05-17 11:40) [2]

ExtractAssociatedIcon тем что значок как-то не правильно рисуется

← →
GuAV © (2004-05-17 11:55) [3]

> Научным методом тыка я выяснил что Ext = ".folder"

Таким же образом в не-ХР Folder и Directory

>ExtractAssociatedIcon тем что значок как-то не правильно рисуется

Что значит не правильно?

значки в listview Найти похожие ветки