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

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

Как без перезагрузки изменить картинки у только что зарег. файлов


Ал ©   (2003-03-25 10:46:00) 

В FAQ есть пример как через реестр зарегистрировать тип файла и присвоить ему новую картинку.
Если присваиваю картинку прикладной программы, из которой регистрировал, то у зарегистрированных файлов она никак не хочет меняться, хотя сами файлы уже зарегистрированы и соответствующим образом обрабатываются.
Может дело в KOL?


mdw   (2003-03-26 11:01:00) [1]

Добавь в конце
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_FLUSH, NiL, NiL);


Ал   (2003-03-26 01:48:00) [2]

Код:
GetModuleFileName(0, Buffer, Sizeof(Buffer));

Key := RegKeyOpenCreate(HKEY_CLASSES_ROOT, ".atheme");
RegKeySetStr(Key, "", "athemefile");
RegKeyClose(Key);

Key := RegKeyOpenCreate(HKEY_CLASSES_ROOT, "athemefile");
RegKeySetStr(Key, "", "Atheme");
RegKeyClose(Key);

Key := RegKeyOpenCreate(HKEY_CLASSES_ROOT, "athemefile\DefaultIcon");
RegKeySetStr(Key, "", """+Trim(Buffer)+"",0");
RegKeyClose(Key);

Key := RegKeyOpenCreate(HKEY_CLASSES_ROOT, "athemefile\shell\open\command");
RegKeySetStr(Key, "", """+Trim(Buffer)+"" "%1"");
RegKeyClose(Key);

В 95, 98 работать начинает сразу(т. е. файлы обрабатываются как зарегистрированные), а вот картинка у них никак не хочет сразу меняться.


GandalfTheWhite   (2003-03-25 17:31:00) [3]

КОД в студию...


SPeller   (2003-03-25 15:27:00) [4]

всё должно меняться. может быть не так меняешь?
и кол тут нипричём.


Наверх

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