ассоциация файла с программой

← →
Tab (2005-08-05 00:39) [0]

Собственно сабж. Пробовал таким пособом:
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 09:49) [1]

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

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

--
Regards, LVT.

← →
Tab (2005-08-05 13:02) [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 }

> Tab (05.08.05 13:02) [2]

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

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

--
Regards, LVT.

ассоциация файла с программой Найти похожие ветки