проблемы с создание своего расширения!

[blackstersl]

всем привет, этот вопрос неоднократно был задан(наверное), но я уже долгое время пытался разобратся с созднием собственного расширения. Мне уже давали ссылки на статьи, но я всё равно немогу разобраться с этим. Вот если вам не трудно обьясните мне как это сделать пошагово.
Я пошёл путём Tregistry:

uses registry;
 
var
 reg:registry;

procedure ext;
 begin
  reg := tregistry.create;
  reg.RootKey := hkey_classes_root;
  reg.OpenKey('.'+extension.Text,true);
  reg.writedata('main', image1.picture.bitmap.handle);
  reg.closekey;
 end;

вот всё что я пока понял, и то незнаю правильно ли и это -) Люди помогите разобраться. Спасибо.

[Ntlegend]

а шо тут гадать долго.. открой редактор реестра.. помотри как описано ЛЮБОЕ расширение файла.. и по аналогии делай..

[Mr.Qwerty]

Вот смотри все по твоей проблеме...: Работа с реестром и INI-файлами в Delphi.doc

[blackstersl]

хорошо, а как потом сохранить например 3-5 картинок и текстовый файл в один файл с этим расширением, а потом прочитать?

[Stilet]

в один файл

Например через TFileStream... А еще лучше в базу данных.

[blackstersl]

а кто нить исходничек может подкинуть, а то в Net -e нет вообще никаких. Спасибо.

[Stilet]

а то в Net -e нет вообще никаких.

Эта фраза переводится "Мне лень искать..."
Лень - плохо!
http://delphiworld.narod.ru/base/sti...eak_apart.html

[hoza_syl]

Подожди пару минут - счас подробно разпишу.

[hoza_syl]

uses registry;

procedure TForm1.CreateExt;
var reg : TRegistry;
begin
  Reg:=TRegistry.Create;
  reg.RootKey:=hkey_classes_root;
  Reg.OpenKey('.aaa',true); //создаем и отркрываем ключ
  //в первом пареметре любое твое разширение
  //записываем значение по умолчанию
  reg.WriteString('','my.extencion'); //во втором параметре любой текст
  reg.CloseKey;

  Reg.OpenKey('my.extencion',true);//Здесь в первом
           //то же самое что выше во втором параметре
  reg.WriteString('','Описание разширения');
  //короче ниже так должно быть
  Reg.OpenKey('shell',true);
  Reg.OpenKey('open',true);
  reg.OpenKey('command',true);
  //Дальше записываем программу - с которой следует открывать файл с даным разшир.
  reg.WriteString('','"'+application.ExeName+'" "1%"');
  // 1% - в конце значит, что как параметр прога получит путь к файлу
  reg.CloseKey;
  reg.Free;
end;

Это создает нужные записи в реестре. Счас напишу что должна делать прога.

[hoza_syl]

Следующий код желатильно написать в событии OnCreate:

procedure TForm1.FormCreate(Sender: TObject);
var FileName : string;
begin
//проверяем количество параметров, переданых проге
 //Если 0 - значит программа просто запущена и откырвать файл не надо,
 // если больше - значит В парамтре с номером 1 - путь к файлу,
 // который хотят открыть
  if ParamCount() >1 then
    begin
      fileName:=Paramstr(1);//получаем полный путь к файлу
      //А дальше делаем то, что нам нужно:)
    end;

end;

если чё не понятно пишы.