Как поставить свою иконку для файлов

[SeRhy]

Подскажите пожалуйса как поставить свою иконку для заданого типа файлов?

Зарание спасибо

[ERASERROR]

В смысле привязать свою прогу к определенному типу файлов?

[SunKnight]

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

[mutabor]

Нет, иконка может отличаться. В программе можеть быть несколько иконок, одна из них идет на значок для файла. Вся эта информация хранится в реестре где-то в ветке HKEY_CLASSES_ROOT.

[mihali4]

А это есть в моем справочнике:

Реестр. Свое расширение

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;