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

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

Реестр

Wish ©   (2004-10-13 14:44:00) 

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:00) [1]

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

---

Наверх