Почему?

← →
Diana (2002-01-30 21:50) [0]

Регистрация расширений файла сделала, но почему при открытий этого документа, запускается только моя программа, а документ так и не загружается?

← →
Фэ (2002-01-30 22:03) [1]

А как насчет параметров ?

← →
Diana (2002-01-30 22:26) [2]

to Фэ:
А нельза ли примерчика?

← →
Фэ (2002-01-30 23:11) [3]

Регистрация расширения .mym

Несколько фишек:
1.Создается секция /.mym которая ссылается на секцию MyData
2.Вследствии возможности изменения пользователем каталога приложения оно регистрируется при каждом запуске как ParamStr(0) и ему передается файл как параметр %1
Ваше приложение обязано проверять корректность передачи через ParamCount и факт наличия файла.
Если есть вероятность одновременного открытия одного и того же файла в одном приложении
или открытие его в одновременно запущенных приложениях, то и это надо проверить и, возможно, исключить.
Через mutex проще.
3.Регистрируется иконка приложения

Uses Registry;
…

procedure TSFormCreate;
var
Reg:TRegistry;
begin
Reg:=nil;
try
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
Reg.OpenKey("\.mym",True);
Reg.WriteString("", "MyData");
Reg.CloseKey;
Reg.OpenKey("\MyData",True);
Reg.WriteString("", "My Ext");
Reg.CloseKey;
Reg.OpenKey("\MyData\Shell\Open\Command",True);
Reg.WriteString("",ParamStr(0)+" %1");
Reg.CloseKey;
Reg.OpenKey("\MyData\DefaultIcon",True);
Reg.WriteString("",ParamStr(0)+", 1");
Reg.CloseKey;
Reg.Free;
except
if Assigned(Reg) then Reg.Free;
end;
end;

← →
ilysha (2002-03-14 14:38) [4]

Пускай запоздавшее, но все-таки очень важная поправка к ответу Фэ

Вариант Фэ подходит только для случаев с отсутствием длинных имен файлов. Система просто обрежет имена до формата 8.3 MS-DOS.

Для Windows больше подходит следующий вариант:
Reg.OpenKey("\MyData\Shell\Open\Command", True); Reg.WriteString("", """+ ParamStr(0)+ "" "%1""); Reg.CloseKey; Reg.OpenKey("\MyData\DefaultIcon", True); Reg.WriteString("", """+ ParamStr(0)+ "", 1");

Как видно отличие только одно - знаки "".

Почему? Найти похожие ветки