Текущий архив: 2004.11.21;
Скачать: 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 вся ветка
Текущий архив: 2004.11.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.042 c
