| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как прикрепить файл [D7, WinXP]
iudjen © (2004-11-09 16:45:00)Например, я сделал свой текстовый редактор. Как чтобы когда сохраняешь текст в файл, файл имел иконку программы, и когда щелкаешь по файлу он открывался через мою программу
BlackLord2003 (2004-11-10 20:47:00) [1]
procedure RegisterExp(Ext,Icon,Hint,Prog:string);
var reg:TRegistry;
s1,s2:string;
begin
s1:='.'+Ext;
s2:='PROGA_'+Ext;
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey(s1,true);
reg.WriteString('', s2);
reg.CloseKey;
reg.OpenKey(s2,true);
reg.WriteString('', hint);
reg.CloseKey;
reg.OpenKey(s2+'\DefaultIcon',true);
reg.WriteString('', Icon + ', 0');
reg.CloseKey;
reg.OpenKey(s2+'\shell\open\command', true);
reg.WriteString('', '"'+Prog+'"' + ' "%1"');
reg.CloseKey;
reg.Free;
end;
Например:
RegisterExp('txt',ParamStr(0),'Текстовый документ',ParamStr(0));
iudjen (2004-11-10 17:57:00) [2]спасибо begin...end, но я ещё не проверил
begin...end (2004-11-09 19:09:00) [3]iudjen © (09.11.04 17:23) [3]
http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621211&n=15
iudjen (2004-11-09 17:23:00) [4]Я новичок объясните, пожалуйста, подробнее
Anatoly Podgoretsky (2004-11-09 17:06:00) [5]Сохраняй со своим зарегистрированым расширением.
Fay (2004-11-09 16:52:00) [6]Возьми RegMon, сделай сабж вручную. Посмотри изменения реестра.
А потом поищи в FAQ. Там наверняка есть. 8)
| |
