Скачать: CL | DM;

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

← →
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

---

← →
iudjen ©   (2004-11-10 17:57) [5]

спасибо 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));

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c