Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Получение иконки по расширению файла   Найти похожие ветки 

 
_Прохожий   (2004-02-13 15:51) [0]

Собсно субж.
Можно было бы использовать TShfileInfo однако есть проблема...
Файлов физически нет, есть только их имена.. Т.е это просто строка аля "readme.txt", "test.zip"
И вот им надо сопоставлять в ListView иконки..
Еще раз замечу - файлов физически не существует.


 
хз ©   (2004-02-13 15:57) [1]

Смотри в реестре соответствующие ключи.


 
_Прохожий   (2004-02-13 15:57) [2]

Ну еще бы написал где смотреть, цены бы тебе не было =)


 
Альф ©   (2004-02-13 16:00) [3]

regedit
HKEY_CLASSES_ROOT > .zip "" = WinRAR.ZIP
HKEY_CLASSES_ROOT > WinRAR.ZIP > DefaultIcon


 
хз ©   (2004-02-13 16:02) [4]

> Ну еще бы написал где смотреть, цены бы тебе не было =)

См [3]. То же самое для всех расширений.


 
_Прохожий   (2004-02-13 16:03) [5]

Я остановился на
HKEY_CLASSES_ROOT > .zip "" = WinRAR.ZIP
А вот "в шкафу посмотреть не догадался"

Вопрос снят, спасибо.


 
_Прохожий   (2004-02-13 16:18) [6]

Дополнительно.
В реестре стоит значение "(По умолчанию)"
Как прочитать эту строку, как к ней обратиться?

:= readstring(ЧТО?)


 
хз ©   (2004-02-13 16:50) [7]

ReadString("");


 
clickmaker ©   (2004-02-13 17:00) [8]

Можно не париться и сделать через SHGetFileInfo. Подсунуть ей расширение, флажок SHGFI_USEFILEATTRIBUTES и атрибут FILE_ATTRIBUTE_NORMAL. См. MSDN, короче


 
хз ©   (2004-02-13 17:46) [9]

2 clickmaker

Мы легких путей не ищем =)



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

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.032 c
8-80045
Tol-123
2003-10-25 19:57
2004.02.25
Размер----ScreenShot


3-79550
Крутыш
2004-01-29 23:39
2004.02.25
Вопрос по гриду из пакета Developer Express


8-80031
Jonson
2003-10-22 19:19
2004.02.25
DelphiX для Delphi6 - ошибки!


14-80117
SeriousSam
2004-02-02 20:51
2004.02.25
Как отклюить в процессе работы программы определенный пункты меню


3-79616
Вованчик
2004-02-02 08:15
2004.02.25
IBUpdateSQL