Вниз
Скачать: 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.019 c
14-1086308022
SPeller
2004-06-04 04:13
2004.06.20
Microsoft получила патент на двойной клик мыши


1-1086342787
Ruslan
2004-06-04 13:53
2004.06.20
Не могу очистить TreeView.


6-1083150513
csr
2004-04-28 15:08
2004.06.20
Ошибка ТСР соединения


1-1086279022
Игорь
2004-06-03 20:10
2004.06.20
Как сделать компьютерный экзамен на Delphi 6.0


6-1083203950
-+= Evgeney =+-
2004-04-29 05:59
2004.06.20
Доступ к программе по сети




   Наверх