Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как зарегистрировать свое расшерения для файлов? Т.е. чтобы при щелчке по такому файлу вызывалась моя программа.

Как зарегистрировать свое расшерения для файлов? Т.е. чтобы при щелчке по такому файлу вызывалась моя программа.

Вот пример:

//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; 

Комментирий от Eugine Veselov (veselov@astral.ntu-kpi.kiev.ua)

А не проще при создании установочного пакета, выставить настройки реестра, заодно и дерегистрацию обеспечим, да и файлы нужного типа будут  с нужными иконками ДО первого запуска програмы.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru