Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.117.183.150] |
|
Сообщ.
#1
,
|
|
|
В нижеприведённом отрывке кода регистрируется приложение project1.exe как программа по умолчанию для расширения *. pci
Uses ..., Registry; ... Procedure TForm1.RegisterFileType(prefix:String; exepfad:String); Begin With TRegistry.Create Do try RootKey:=HKEY_CLASSES_ROOT; { create a new key --> .pci } OpenKey('.'+prefix,True); { create a new value for this key --> pcifile } WriteString('',prefix+'file'); CloseKey; { create a new key --> pcifile } CreateKey(prefix+'file'); { create a new key pcifile\DefaultIcon } OpenKey(prefix+'file\DefaultIcon',True); { and create a value where the icon is stored --> c:\project1.exe,0 } WriteString('',exepfad+',0'); CloseKey; OpenKey(prefix+'file\shell\open\command',True); { create value where exefile is stored --> c:\project1.exe "%1" } WriteString('',exepfad+' "%1"'); CloseKey; finally Free; end; end; procedure TForm1.Button1Click(Sender: TObject); Begin RegisterFileType('pci','c:\project1.exe'); End; |