| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Регистрация своего расширения в системе [D7, WinXP]

Тёмыч ©   (2005-06-06 13:12:00) 

и открытие файла с этим расширением программой...

Здравствуйте!

Наверное это уже заезжанный вопрос, но все же помогите пожалуйста!

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

---

Чапаев   (2005-06-06 13:58:00) [1]

> Наверное это уже заезжанный вопрос
Таки да. FAQ почитать -- не судьба? Не говоря уж о чтении MSDN...

---

NeoVariant   (2005-06-06 13:48:00) [2]

А вообще, поищи инфу на тему TFileDescription - дескриптор файла, открываемого в данный момент приложением. Это примерно тоже, что и Drag&Drop:
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1117818174&n=5- может поможет.

---

NeoVariant   (2005-06-06 13:43:00) [3]

Регистрация своего типа:

uses Registry;
...
procedure TForm1.RegisterFileType(ext: string; FileName: string);
var
 reg: TRegistry;
begin
 reg:=TRegistry.Create;
 with reg do
 begin
   RootKey:=HKEY_CLASSES_ROOT;
   OpenKey('.'+ext,True);
   WriteString('',ext+'file');
   CloseKey;
   CreateKey(ext+'file');
   OpenKey(ext+'file\DefaultIcon',True);
   WriteString('',FileName+',0');
   CloseKey;
   OpenKey(ext+'file\shell\open\command',True);
   WriteString('',FileName+' "%1"');
   CloseKey;
   Free;
 end;
end;
Ну а регистрировать так:
RegisterFileType('DelphiWorld', Application.ExeName);
А как запускать файл - додумайся сам.

---

Наверх