| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открывалка по умолчанию [D6, Win2k]
Dinara © (2002-06-02 11:03:00)Как зарегить свою прогу открывалкой для файлов с неизвестным или отсутствующим расширением?
olookin (2002-06-02 14:31:00) [1]В массив newext следует занести расширения файлов, например:
"myext","yourext" etc
var newext: array of string;
procedure DataToRegistry;
var Reg: TRegistry;
i: integer;
begin
Reg:=TRegistry.Create;
with Reg do begin RootKey:=HKEY_LOCAL_MACHINE;
LazyWrite:=False;
for i:=0 to Length(newext)-1 do begin
if KeyExists("\Software\Classes\."+newext[i]) then
if MessageDlg("Уже зарегистрирован "+newext[i]+
" Переписать?",mtWarning,[mbYes,mbNo],0)=mrNo then Continue;
OpenKey("\Software\Classes\."+newext[i],true);
WriteString("",newext[i]+"file");
OpenKey("\Software\Classes\"+newext[i]+"file",true);
OpenKey("\Software\Classes\"+newext[i]
+"file\DefaultIcon",true);
WriteString("",Application.ExeName+",0");
OpenKey("\Software\Classes\"+newext[i]+"file\Shell",true);
OpenKey("\Software\Classes\"+newext[i]+"file\Shell\open",true);
OpenKey("\Software\Classes\"+newext[i]
+"file\Shell\open\command",true);
WriteString("",Application.ExeName+" %1"); CloseKey; end;
CloseKey; end; Reg.Free;
end;
Cobalt (2002-06-02 13:05:00) [2]>В UBPFD кажется тоже есть
нет.
VID (2002-06-02 12:32:00) [3]В UBPFD кажется тоже есть
Anatoly Podgoretsky (2002-06-02 11:41:00) [4]http://www.podgoretsky.com/qa/qa47.html
Song (2002-06-02 11:04:00) [5]В FAQ есть.
| |
