как прикрепить файл

← →
iudjen © (2004-11-09 16:45) [0]

Например, я сделал свой текстовый редактор. Как чтобы когда сохраняешь текст в файл, файл имел иконку программы, и когда щелкаешь по файлу он открывался через мою программу

← →
Fay © (2004-11-09 16:52) [1]

Возьми RegMon, сделай сабж вручную. Посмотри изменения реестра.
А потом поищи в FAQ. Там наверняка есть. 8)

← →
Anatoly Podgoretsky © (2004-11-09 17:06) [2]

Сохраняй со своим зарегистрированым расширением.

← →
iudjen © (2004-11-09 17:23) [3]

Я новичок объясните, пожалуйста, подробнее

← →
begin...end © (2004-11-09 19:09) [4]

iudjen © (09.11.04 17:23) [3]

http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621211&n=15

спасибо begin...end, но я ещё не проверил

← →
BlackLord2003 (2004-11-10 20:47) [6]

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));

как прикрепить файл Найти похожие ветки