Код тот же самый. Только небольшая модификация:| Код | uses registry, shlobj;
procedure AppRegister(ext, app, ico: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.LazyWrite := False;
Reg.OpenKey('.'+ext+'\shell\open\command',True);
Reg.WriteString('', app + ' %1');
Reg.CloseKey;
Reg.OpenKey('.'+ext+'\DefaultIcon', True);
Reg.WriteString('', ico);
Reg.CloseKey;
Reg.Free;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); // вот эта волшебная строчка
end;
// пример
procedure TForm1.Button1Click(Sender: TObject);
begin
AppRegister('sss', ParamStr(0), ParamStr(0)+',0');
end; |
Добавлено @ 16:47
Цитата(McDevil @ 13.3.2006, 16:10  ) | | меня админ по-моему переслал на какой-то топик |
|
