Текущий архив: 2002.06.13;
Скачать: CL | DM;

Вниз

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

← →
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 кажется тоже есть

---

← →
Cobalt ©   (2002-06-02 13:05) [4]

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

---

← →
olookin ©   (2002-06-02 14:31) [5]

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

---

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

Текущий архив: 2002.06.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c