ассоциация файлов с приложением

[TaTT DoGG]

есть приложение, которое создаёт файлы с определённым расширение, например jpg
как создать ассоциацию данного расширения с данной программой?
в реестре прописать? но как именно?

[uberchel]

Вот так:


implementation
uses Registry;

{$R *.dfm}

procedure RegisterFileType(FileType, FileTypeName, Description, ExecCommand: string); 
begin 
if (FileType='') or (FileTypeName='') or (ExecCommand='') then exit;  
if FileType[1]<>'.' then FileType:='.'+FileType;  
if Description='' then Description:=FileTypeName;  
with Treginifile.create do  
try rootkey := hkey_classes_root;  
writestring(FileType,'',FileTypeName);  
writestring(FileTypeName,'',Description);  
writestring(FileTypeName+'\shell\open\command','',ExecCommand+' "%1"'); 
finally free;  end; end;

//Вот само использавание
procedure TForm1.ButtonClick(Sender: TObject);
begin RegisterFileType('jpg','JPEG Image', 'Cвои текст','Exename.exe'); end;

[TaTT DoGG]

два вопроса:
1) свои текст это как коммент или он будет где-то отображаться?
2) Exename.exe - путь к файлу указывать можно?

[uberchel]

TaTT DoGG

Ответ на вопросы:
Свой текст-это описание файла, допустим пример: winamp audio file
Exename- путь и название твоей программы с расширением
допустим: С:\MyApp.exe .
После Нажатия в твоей программе TButton1 файл с данным расширением
Ассоциируется с твоей программой!