Реестр. Свое расширение
Реестр. Свое расширение
Реестр. Свое расширение //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;
