Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Загрузка иконок [D7, Win95/98, Win2k, WinXP]


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

Так можно загрузить иконку для зарегистрированного типа файла (в примере для *.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;


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

МитяЙ


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

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

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


Song   (2003-03-30 13:57:00) [2]

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


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

Если писать


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


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


Song   (2003-03-30 12:14:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо