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

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

  1. Shouldercannon

    Shouldercannon Well-Known Member

    Регистрация:
    25 май 2010
    Сообщения:
    125
    Симпатии:
    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
Загрузка...
Похожие Темы - Установить браузер по
  1. paxac
    Ответов:
    6
    Просмотров:
    69
  2. paxac
    Ответов:
    0
    Просмотров:
    54
  3. Unfuckable
    Ответов:
    1
    Просмотров:
    66
  4. d7uk4r3v
    Ответов:
    16
    Просмотров:
    467
  5. NaVi_vl
    Ответов:
    15
    Просмотров:
    291

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