Текущий архив: 2004.11.28;
Скачать: CL | DM;

Вниз

Реестр   Найти похожие ветки 

← →
Wish ©   (2004-10-13 14:44) [0]

var
 reg: TRegistry;
 filename: string;
begin
filename:=Application.ExeName;
 reg:=TRegistry.Create;
 with reg do
 begin
   RootKey:=HKEY_CLASSES_ROOT;
   OpenKey("."+"txt",True);
   WriteString("","txt"+"file");
   CloseKey;
   CreateKey("txt"+"file");
   OpenKey("txt"+"file\DefaultIcon",True);
   WriteString("",FileName+",0");
   CloseKey;
   OpenKey("txt"+"file\shell\open\command",True);
   WriteString("",FileName+" "%1"");
   CloseKey;
   Free;
 end;

Почему данный код не заставляет файлы с расширением *.txt открыватся через мою прогу?

---

← →
Wish ©   (2004-10-13 17:07) [1]

В когда я пришу к примеру INI то работает, подскажите почему txt не работает?

---

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

Текущий архив: 2004.11.28;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.036 c