Скачать: CL | DM;

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

← →
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 }

---

← →
Leonid Troyanovsky ©   (2005-08-05 13:30) [3]

> Tab   (05.08.05 13:02) [2]

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



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

--
Regards, LVT.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c