Текущий архив: 2005.08.07;
Скачать: CL | DM;

Вниз

Регистрация своего расширения в системе   Найти похожие ветки 

← →
Тёмыч   (2005-06-06 13:12) [0]

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

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

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

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

---

← →
NeoVariant ©   (2005-06-06 13:43) [1]

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

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);
А как запускать файл - додумайся сам.

---

← →
NeoVariant ©   (2005-06-06 13:48) [2]

А вообще, поищи инфу на тему TFileDescription - дескриптор файла, открываемого в данный момент приложением. Это примерно тоже, что и Drag&Drop:
http://delphimaster.net/view/4-1117818174/ - может поможет.

---

← →
Чапаев ©   (2005-06-06 13:58) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.08.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.039 c