Главная страница
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.012 c
3-67727
Kati
2003-06-26 15:21
2003.07.21
События грида


3-67723
APTEMKA
2003-06-27 16:22
2003.07.21
плз нужно запустить приложение на компе без BDE


1-67800
Dale
2003-07-09 10:12
2003.07.21
MDI - интерфейс


14-68036
Sun
2003-07-04 18:57
2003.07.21
Одиночество- это когда есть E-mail,а письма присылает только серв


1-67837
AndrewVolkov
2003-07-07 16:21
2003.07.21
опять PopupMenu