Открывалка по умолчанию

← →
Dinara © (2002-06-02 11:03) [0]

Как зарегить свою прогу открывалкой для файлов с неизвестным или отсутствующим расширением?

← →
Song © (2002-06-02 11:04) [1]

В FAQ есть.

← →
Anatoly Podgoretsky © (2002-06-02 11:41) [2]

http://www.podgoretsky.com/qa/qa47.html

← →
VID © (2002-06-02 12:32) [3]

В UBPFD кажется тоже есть

>В UBPFD кажется тоже есть
нет.

В массив 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;

Открывалка по умолчанию Найти похожие ветки