Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ Другое \ Регистрация расширений

Регистрация расширений

Регистрация расширений происходит через реестр. Ниже приведен пример, который открывает написанную вами программу для файлов с расширениями TXT.

Uses .., Registry;

begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('.txt',True);
Reg.WriteString('','txtfile');
Reg.CloseKey;
Reg.OpenKey('txtfile',True);
Reg.WriteString('','Текстовый документ');
Reg.OpenKey('DefaultIcon',True);
Reg.WriteString('',ParamStr(0)+',0');
Reg.CloseKey;
Reg.OpenKey('txtfileshellopencommand',True);
Reg.WriteString('',ParamStr(0)+' %1');
Reg.Free;
end;

Название: Регистрация расширений
Дата публикации: 2004-01-27 (2663 Прочтено)

 
 

 

Page generation 0.030 seconds