Не хуже M$ получается! У них свои типы файлов, и у нас будут свои! Всё, что для этого нужно - точно выполнять последовательность действий и научиться копировать в буфер, чтобы не писать все те коды, что будут тут изложены :))
Сначала, естественно, объявляем в uses модуль Registry.
|
Code: |
|
uses Registry; |
Затем в публичных объявлениях объявляем процедуру регистрации нового типа файлов:
|
Code: |
|
public { Public declarations } procedure RegisterFileType(ext: string; FileName: string); |
Описываем её так:
|
Code: |
|
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; |
Ну а по нажатию какого-нибудь батона регистрируем!
|
Code: |
|
procedure TForm1.Button1Click(Sender: TObject); begin RegisterFileType('DelphiWorld', Application.ExeName); end; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!