Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.10;
Скачать: CL | DM;

Вниз

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

 
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");


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



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
1-30904
kaldr
2002-05-30 08:06
2002.06.10
Speedbutton


1-30857
AlexanderSK
2002-05-29 15:42
2002.06.10
Строка в TRichEdit


3-30713
Split
2002-05-18 12:43
2002.06.10
максимальное значение поля Code в базе


6-30954
Shaman_
2002-04-02 00:26
2002.06.10
Прохождение авторизации на NT сервере


14-31006
Подонок
2002-05-07 11:27
2002.06.10
Что было самое хреновое у вас в жизни?