Форум: "Основная";
Поиск по всему сайту: 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.012 c
4-32369           ctapik-net            2001-12-13 21:08  2002.02.11  
как узнать дату установки windows?


3-32122           Animal                2002-01-15 10:33  2002.02.11  
Работа с таблицами без установки BDE на компьтере


1-32229           hwber                 2002-01-26 15:04  2002.02.11  
QuickReport руссифмцировать Preview?


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


1-32282           Bodia                 2002-01-20 19:42  2002.02.11  
WebBrowser