Установить браузер по умолчанию

Тема в разделе "Delphi - Система", создана пользователем Shouldercannon, 8 май 2015.

Наш партнер Genesis Hackspace
  1. Shouldercannon

    Shouldercannon Well-Known Member

    Регистрация:
    25 май 2010
    Сообщения:
    127
    Симпатии:
    0
    Доброго времени суток!
    Подскажите, пожалуйста, что нужно исправить в реестре, чтобы все HTML-странички имели иконку указанного браузера и открывались через этот же браузер.
    Код (Delphi):
    var
      Reg: TRegistry;
    begin
      Reg := TRegistry.Create;
      Reg.RootKey := HKEY_CLASSES_ROOT;
     
      Reg.OpenKey('htmlfile\shell\open\command', True);
      Reg.WriteString('', '"' + Application.ExeName + '" -- "%1"');
      Reg.CloseKey;
     
      Reg.OpenKey('htmlfile\DefaultIcon', True);
      Reg.WriteString('', Application.ExeName + ',0');
      Reg.CloseKey;
     
      Reg.OpenKey('http\shell\open\command', True);
      Reg.WriteString('', '"' + Application.ExeName + '" -- "%1"');
      Reg.CloseKey;
     
      Reg.OpenKey('http\DefaultIcon', True);
      Reg.WriteString('', Application.ExeName + ',0');
      Reg.CloseKey;
     
      Reg.OpenKey('https\shell\open\command', True);
      Reg.WriteString('', '"' + Application.ExeName + '" -- "%1"');
      Reg.CloseKey;
     
      Reg.OpenKey('https\DefaultIcon', True);
      Reg.WriteString('', Application.ExeName + ',0');
      Reg.CloseKey;
     
      FreeAndNil(Reg);
    Не работает
     
    #1 Shouldercannon, 8 май 2015
    Последнее редактирование модератором: 11 май 2015
Загрузка...

Поделиться этой страницей