Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Почему?

Diana © (2002-01-30 21:50:00)
Регистрация расширений файла сделала, но почему при открытий этого документа, запускается только моя программа, а документ так и не загружается?

ilysha (2002-03-14 14:38:00) [1]
Пускай запоздавшее, но все-таки очень важная поправка к ответу Фэ

Вариант Фэ подходит только для случаев с отсутствием длинных имен файлов. Система просто обрежет имена до формата 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");

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

Фэ (2002-01-30 23:11:00) [2]
Регистрация расширения .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;

Diana (2002-01-30 22:26:00) [3]
to Фэ:
А нельза ли примерчика?

Фэ (2002-01-30 22:03:00) [4]
А как насчет параметров ?

Наверх

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