Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 10:39 PM
Начало » Статьи » Реестр и Делфи

Зарегистрировать новый тип файлов
Uses

Registry;

public

{ Public declarations }

procedure RegisterFileType(ext: string; FileName: string);

procedure TForm1.RegisterFileType(ext: string; FileName: string);

var

reg: TRegistry;

begin

reg:=TRegistry.Create;

with reg do

begin

RootKey:=HKEY_CLASSES_ROOT;

OpenKey('.'+ext,True);

WriteString('',ext+'file');

CloseKey;

CreateKey(ext+'file');

OpenKey(ext+'file\DefaultIcon',True);

WriteString('',FileName+',0');

CloseKey;

OpenKey(ext+'file\shell\open\command',True);

WriteString('',FileName+' "%1"');

CloseKey;

Free;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

RegisterFileType('DelphiWorld', Application.ExeName);

end;

Категория: Реестр и Делфи | Добавил: Admin (2006-12-17)
Просмотров: 1333 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: