Ассоциировать файлы

[Михаил Юрьевич]

Подскажите как ассоциировать файлы,сделал текстовый редактор
и в настройках нужно сделать окно для ассоциации файлов,куда в реестре
их надо прописать и как?

[Stilet]

Да, в Hkey_Classes_Root создай свою "папку" например .myext (где myext - расширение твоего файла, который ты хочеш чтоб открывался твоей прогой) и в нем создай ветку file\shell\open\command - путь к проге если не ошибаюсь.

А в прочим на Делфи Ворлд есть пример:

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;

[Михаил Юрьевич]

Что то по этому коду не получается,в реестре прописался а вот когда
кликаешь на текстовом файле то открывается все равно другим,но
если на текстовом файле кликнуть правой кнопкой и выбрать "открыть с помощью" то там моя программа появилась и больше ни чего

[Михаил Юрьевич]

С любым расширением ассоциируется,а с "txt" нет,помогите может у кого
есть проверенный исходник,нужно что бы при нажатии на button регистрировать в реестре расширение файла "txt" , и моя
программа при клике на файл открывала его

[mihali4]

"Достали" уже... Как будто я так - для своего самолюбия выложил наиболее интересные моменты в расширяемом сборнике на сайте форума...
Оттуда:

Реестр. Свое расширение

//use the registry to register your own filetype. uses registry; 

procedure tform1.registerfiletype(prefix:string; exepfad:string); 
var reg:tregistry; 
begin 
reg:=tregistry.create; 
reg.rootkey:=hkey_classes_root;
//create a new key --> .pci 
reg.openkey('.'+prefix,true);
//create a new value for this key --> pcifile 
reg.writestring('',prefix+'file');
reg.closekey; //create a new key --> pcifile 
reg.createkey(prefix+'file'); 
//create a new key pcifile\defaulticon 
reg.openkey(prefix+'file\defaulticon',true);
//and create a value where the icon is stored --> c:\project1.exe,0 reg.writestring('',exepfad+',0');
reg.closekey; 
reg.openkey(prefix+'file\shell\open\command',true);
//create value where exefile is stored --> c:\project1.exe "%1" 
reg.writestring('',exepfad+' "%1"'); reg.closekey; 
reg.free;
end;
procedure tform1.button1click(sender: tobject); 
begin 
registerfiletype('pci','c:\project1.exe'); 
end;

[Михаил Юрьевич]

Подскажите что не правильно делаю,все компилируется а программа
на текстовый файлы не реагирует,не могу сделать свою программу по
умолчанию


procedure tform1.registerfiletype(prefix:stri ng; exepfad:string);
var reg:tregistry;
begin
reg:=tregistry.create;
reg.rootkey:=hkey_classes_root;
//create a new key --> .pci
reg.openkey('.'+prefix,true);
//create a new value for this key --> pcifile
reg.writestring('',prefix+'file');
reg.closekey; //create a new key --> pcifile
reg.createkey(prefix+'file');
//create a new key pcifile\defaulticon
reg.openkey(prefix+'file\defaultico n',true);
//and create a value where the icon is stored --> c:\project1.exe,0 reg.writestring('',exepfad+',0');
reg.closekey;
reg.openkey(prefix+'file\shell\open \command',true);
//create value where exefile is stored --> c:\project1.exe "%1"
reg.writestring('',exepfad+' "%1"'); reg.closekey;
reg.free;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
registerfiletype('txt','k:\Текстови к\Letter.exe');
end;