|
Вопрос # 3 073/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Здраствуйте. Помогите пожалуйста, у меня есть типа блокнот созданный в делфи, теперь хочу сделать его всем *.тхт файлам по умолчанию. как это можно сделать. Где что надо менять, подскажите пожалуйста-а. Заранее большое спасибо
 |
Вопрос задал: Beknur (статус: Посетитель)
Вопрос отправлен: 6 августа 2009, 14:51
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Beknur!
здесь http://faqs.org.ru/progr/pascal/del_vcl4.htm в самом низу страницы.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 6 августа 2009, 14:58
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 10 августа 2009, 01:31; участников в обсуждении: 3.
|
|
Вадим К (статус: Академик), 6 августа 2009, 16:31 [#1]:
to Random :
да?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
Ученый (статус: 8-ой класс), 6 августа 2009, 16:38 [#2]:
to Random, соображаешь что говоришь и о чем речь?
to Beknur, юзай ассоциацию файлов, залезь в гугл, он найдет кучу статей! если что будет не понятно, спросишь здесь.
|
6 августа 2009, 16:42: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Взаимодействие с Windows модератором Ерёмин А.А.
|
iPharaon (статус: 1-ый класс), 10 августа 2009, 01:31 [#3]:
procedure TForm1.RegisterFileType(prefix:String; exepfad:String);
var reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
//create a new key --> .pci
reg.OpenKey('.'+prefix,True);
//create a new value for this key --> pcifile
reg.WriteString('',prefix+'file');
reg.CloseKey; //create a new key --> pcifile
reg.CreateKey(prefix+'file');
//create a new key pcifile\DefaultIcon
reg.OpenKey(prefix+'file\DefaultIcon',True);
//and create a value where the icon is stored --> c:\project1.exe,0
reg.WriteString('',exepfad+',0');
reg.CloseKey;
reg.OpenKey(prefix+'file\shell\open\command',True);
//create value where exefile is stored --> c:\project1.exe "%1"
reg.WriteString('',exepfad+' "%1"');
reg.CloseKey;
reg.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterFileType('txt','c:\project1.exe');
end;
На событие oncreate формы вызываете функцию paramstr(1)
В ней будет храниться путь до открываемого файла, можете делать с ним все что угодно =)
Например: memo1.lines.loadfromfile(paramstr(1));
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
