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

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

Как изменить иконку на ассоциированном расширении? [D6, 2000, XP, 2003]


Магедон ©   (2007-02-26 15:56:00) 

Привет!
Я ассоциирую расширение со своей программой.
Это все найдено в инете.
Но во всем, что я нашел присвоение иконки к ассоциированному расширению производится одним методом:


     OpenKey('\SOFTWARE\Classes\' + FileExt + '\DefaultIcon', true);
     WriteString('', AppName + ',0');
     CloseKey;


У меня возникла потребность менять эти иконки.
Вопрос как еще можно задавать иконки?
Только из самого екзешника типа WriteString('', AppName + ',0'), или еще из каких источников?


Магедон   (2007-02-26 16:02:00) [1]

Благодарю


tesseract   (2007-02-26 16:01:00) [2]


> олько из самого екзешника типа WriteString('', AppName +
> ',0'), или еще из каких источников?


Из любых содержащих Иконки нужного формата.

HKEY_CLASSES_ROOT
.myp
    (Default) = MyProgram.1
                    MyProgram.1
                    (Default) = MyProgram Application
                    DefaultIcon
                                (Default) = C:\MyDir\ICONS.DLL,2


Наверх

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