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

Вниз

Загрузка иконок   Найти похожие ветки 

 
МитяЙ2 ©   (2003-03-30 11:41) [0]

Так можно загрузить иконку для зарегистрированного типа файла (в примере для *.txt):


W:=0; { Word }
Image1.Picture.Icon.Handle:=ExtractAssociatedIcon(HInstance,Pchar("c:\windows\setuplog.txt", W);


Но она будет размером 32x32. Как загрузить иконку размером 16x16, НЕ используя


ExtractIconEx(PChar(<Путь к иконке>), num_icon,IconLarge,IconSmall,1);
LIcon.Handle:=IconSmall;


т.к. мы не знаем путь к иконке и её номер. А через реестр не всегда можно узнать путь к иконке
для определенного типа файла (убедился на собственном опыте).

МитяЙ


 
Song ©   (2003-03-30 12:14) [1]

Дык напиши *.txt


 
Митяй2 ©   (2003-03-30 12:41) [2]

Если писать


ExtractAssociatedIcon(HInstance,Pchar("c:\windows\*.txt", W);


то handle вообще не возвращает!


 
Song ©   (2003-03-30 13:57) [3]

А зачем C:\windows\ ? :)


 
МитяЙ2 ©   (2003-03-30 16:50) [4]

Song, и без C:\windows\ не работает.

Но вот посмотри:
http://rsdn.ru/Forum/Message.aspx?mid=228194
Этот совет мне помог.



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
4-68123
Mr. xXx
2003-05-20 16:05
2003.07.21
Как отловить нажатие по Desktop у


1-67813
sergio_serg
2003-07-09 14:50
2003.07.21
dbgrid


7-68088
Deep
2003-04-19 05:02
2003.07.21
Проблема поиска файлов из сервиса


14-68026
АТ
2003-07-04 18:32
2003.07.21
А вдруг кто-нибудь уже мучился с PCL-форматом?


3-67726
Lucky
2003-06-15 12:32
2003.07.21
IBQuery и IBUpdateSQL как сделать ApplyUpdates корректным