Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
ВнизРеестр и левые данные Найти похожие ветки
← →
Анонимщик (2002-02-15 10:43) [16]Этот код пробовал?
//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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c