Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Мастера помогите.... 


Хлор   (2002-01-23 07:59) [0]

Есть у меня текстовый редактор.. работает нормально и все хорошо, только как сделать что бы он открывал файлы по ассоциации к нему.



Chris   (2002-01-23 09:42) [1]

Для своей программы я использую файлы данных с расширением .tw.
Вот как я реализовал привязку этого типа к моей проге:

Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
if not Reg.OpenKey(".tw",False) then
begin
Reg.OpenKey(".tw",True);
Reg.WriteString("","TemplateKniga");
Reg.CloseKey;
Reg.OpenKey("TemplateKniga",True);
Reg.WriteString("","Шаблон для БД Книга");
Reg.CloseKey;
// Далее определяется иконка для файлов этого типа
Reg.OpenKey("TemplateKniga\DefaultIcon",True);
Reg.WriteString("",Application.ExeName+",0");
Reg.CloseKey;
// Вообще-то мне необходимо, чтобы по двойному щелчку файл открывался в WordPad"е, но прописать можно любую прогу, способную обрабатывать строку параметров
Reg.OpenKey("TemplateKniga\shell\open\command",True);
Reg.WriteString("",""C:\Program Files\Accessories\WORDPAD.EXE" "%1"");
end
else
begin
//Это блок вредности.
//Все-равно переопределяет данный тип на WordPad.
Reg.CloseKey;
Reg.OpenKey("TemplateKniga\shell\open\command",True);
Reg.WriteString("",""C:\Program Files\Accessories\WORDPAD.EXE" "%1"");
end;
Reg.CloseKey;
Reg.Free;



Хлор   (2002-01-26 03:12) [2]

Спасибо..... Очень благодарен




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.012 c
14-32338          [TLS]Lord             2001-12-22 12:15  2002.02.11  
Срочно! Помогите!


3-32174           ZeroA                 2002-01-16 09:31  2002.02.11  
Индексы для БД FoxPro


14-32316          Гриф                  2001-12-19 10:22  2002.02.11  
Возраст призывника


3-32120           olban                 2002-01-15 12:50  2002.02.11  
Трехзвенная система


1-32181           Ig                    2002-01-25 12:37  2002.02.11  
Ошибка при StrToDate