Как зарегистрировать свое расшерения для файлов?

 

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

Вот пример:

 

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