Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ассоциация файла с программой [D7, WinXP]

Tab © (2005-08-05 00:39:00)
Собственно сабж. Пробовал таким пособом:
RegFile.CreateKey('.ext\Shell\Open');
RegFile.OpenKey('.ext',false);
RegFile.WriteString('DefaultIcon',Application.ExeName);
RegFile.CloseKey;
RegFile.OpenKey('.ext\Shell\Open\',false);
RegFile.WriteString('Command',Application.ExeName);
но почему то на моей XP-SP2 не заработало.
Сделал привязку через проводник, посмотрел реестр, он оставил записи в местах 4 наверное. Вообщем запутался я.
Если можно, киньте в меня примером.
Заранее благодарен.

Leonid Troyanovsky (2005-08-05 13:30:00) [1]

> Tab (05.08.05 13:02) [2]

// keystring := Format( '%s\DefaultIcon',[filetype]
> );
> keystring := Format( '%s\DefaultIcon',[description]

Попадается и первое. Может это пережиток win3.x,
не знаю, бо не эксперт.

--
Regards, LVT.

Tab (2005-08-05 13:02:00) [2]
Спасибо за наводку, почему то пришлось исправить одну строку в

Procedure RegisterFileIcon( Const filetype, iconsource, description: String;
iconindex: Cardinal );
Var
reg: TRegistry;
keystring: String;
Begin
reg:= TRegistry.Create;
Try
reg.Rootkey := HKEY_CLASSES_ROOT;
// keystring := Format( '%s\DefaultIcon',[filetype] );
keystring := Format( '%s\DefaultIcon',[description] );
CreateKey( reg, keystring );
reg.WriteString( '', Format( '%s,%d', [iconsource,iconindex] ));
reg.CloseKey;
Finally
reg.free;
End;
End; { RegisterFileIcon }

Leonid Troyanovsky (2005-08-05 09:49:00) [3]

> Tab (05.08.05 00:39)
> Собственно сабж. Пробовал таким пособом:

http://groups-beta.google.com/group/fido7.ru.delphi.chainik/msg/1aba860bd3acb75c

--
Regards, LVT.

Наверх

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