Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.02 c
14-32344          Sheva                 2001-12-20 15:30  2002.02.11  
Подскажите, пожалуйста.


6-32311           Gunner                2001-11-17 00:21  2002.02.11  
Point to Point Protocol


3-32176           weak                  2002-01-16 17:04  2002.02.11  
QReport и StringGrid


3-32137           Sergant               2002-01-12 04:35  2002.02.11  
Строковые поля длинй больше 255


6-32306           Русский               2001-11-21 23:57  2002.02.11  
Помогите разобраться.