Вниз
Скачать: CL | DM;

значки в 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


 
[lamer]Barmaglot ©   (2004-05-17 11:57) [4]

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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c
1-1086364869
zokzok
2004-06-04 20:01
2004.06.20
дата изменения файла


1-1086233758
rtf
2004-06-03 07:35
2004.06.20
Как узнать количество дней между двумя датами?


4-1084117252
a_legayda@mtu-net.ru
2004-05-09 19:40
2004.06.20
Шрифты


6-1082971824
Dmitriy_R
2004-04-26 13:30
2004.06.20
Помогите с сокетом разобраться


1-1086676624
Timon
2004-06-08 10:37
2004.06.20
ExcelApplication1.Workbooks[0].SaveAs ОШИБКА




   Наверх