Скачать: CL | DM;

как корректно зарегистрировать свое расширение?   Найти похожие ветки 

← →
aspen ©   (2003-02-05 14:56) [0]

Надо что бы при клике на файле с моим расшерением запускалась моя программа...
Ручное ковыряние в реестре дало желаемый результат, но постоянно выскакивает окно "открыть с помощью...", где по умолчанию стоит моя прога.

---

← →
ZeroDivide ©   (2003-02-05 14:58) [1]

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

---

← →
aspen ©   (2003-02-05 15:01) [2]

Большое Спасибо!!!
а я ключи не так писал, вот и не работало :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c