Как прописать программу

[Miha85193]

Добрый день. У меня такой вопрос. Есть приложение, которое по идеи, должно открывать текстовый файл, с помощью двойного щелчка по нему (как это делает "Блокнот" в Windows). Для этого нужно прописать его в реестре, как открывающее данный тип файла. Подскажите мне, как для такой цели, правильно динамически прописать данное приложение. Заранее спасибо.

[BOBAH13]

http://www.google.com.ua/search?q=de...ster+type+file

[Miha85193]

Честно говоря лень копаться во всевозможных поисковиках. Дают кучу всякой ерунды, только не то что нужно.

[BOBAH13]

Сообщение от Miha85193

Честно говоря лень копаться во всевозможных поисковиках. Дают кучу всякой ерунды, только не то что нужно.

После такого ответа я даже не знаю что сказать.

Если же все еще есть желание понять как это сделать, то перейти по линку который я дал, потом второй линк и там Download. текст из той странички

When creating applications, it is often necessary to store (application related) data on the file system. You may choose to create your own file type (with a *unique* extension) and then associate that extension with your application through Windows. This tells Windows to automatically run your application when a user double-clicks a file in Windows Explorer, for example.

The source code accompanying (download) this tip shows how to:

[AlDelta]

http://programmersforum.ru/showthread.php?p=78627

[DeDoK]

procedure TForm1.FormCreate(Sender : TObject);
var
reg : TRegistry;
begin
reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('.txt', true);
reg.WriteString('','txtfile');
reg.CloseKey;
reg.CreateKey('txt'+'DeDoK';
reg.OpenKey('txtfile\DefaultIcon', true);
reg.WriteString('',Application.ExeName+',0');
reg.CloseKey;
reg.OpenKey('txtfile\shell\open\command',true);
reg.WriteString('',Application.ExeName+'"%1"');
reg.CloseKey;
reg.Free;
end;

[Miha85193]

Честно говоря не ожидал такой поддержки, тем более от земляков, что весьма приятно (форум то русский). Всем просто огромное спасибо!