Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Операционные системы > Операционные системы общие вопросы
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2015, 20:22   #1
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
Вопрос Установить браузер по умолчанию

Доброго времени суток!
Подскажите, пожалуйста, что нужно исправить в реестре, чтобы все HTML-странички имели иконку указанного браузера и открывались через указанный браузер.
Shouldercannon вне форума Ответить с цитированием
Старый 10.05.2015, 20:58   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Если не заморачиваться нововведениями, то примерно так
0.jpg
ПыСы. Раздел HKEY_CLASSES_ROOT Иконка в defaulicon.
Ну и изменять надо не mp3, а html и hml
eoln вне форума Ответить с цитированием
Старый 10.05.2015, 23:13   #3
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Пробовал так
Код:
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);
Результат нулевой
Shouldercannon вне форума Ответить с цитированием
Старый 11.05.2015, 04:09   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Код:
// -------------------- Функции для работы с реестром --------------------------

// Регистрация расширения, установка иконки и ассоциативной программы
function RegFileExt(AExtension, AExtDescription, AFileDescription,
                    AOpenWith, AParamString: String; AIconIndex: Integer): Boolean;
  var  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
  with Reg do begin
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey(AExtension, True);
    WriteString('', AExtDescription);
    OpenKey('\' + AExtDescription, True);
    WriteString('', AFileDescription);
    OpenKey('DefaultIcon', True);
    WriteString('', AOpenWith + ','+IntToStr(AIconIndex));
    OpenKey('\' + AExtDescription + '\Shell\Open\Command', True);
    WriteString('', '"' + AOpenWith + '" "' + AParamString + '"');
  end;
  Result := True;
  except
    Result := False;
  end;
  Reg.Free;
end;

// Проверка регистрации
function FileExtIsRegistered(const AExtension: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg:= TRegistry.Create;
  try
    Reg.RootKey:= HKEY_CLASSES_ROOT;
    Result:= Reg.KeyExists(AExtension);
  finally
    Reg.Free();
  end;
end;

// Удаление регистрации
function UnRegFileExt(AExtension, AExtDescription: String): Boolean;
  var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
     begin
      RootKey := HKEY_CLASSES_ROOT;
      DeleteKey(AExtension);
      DeleteKey('\' + AExtDescription);
     end;
   Result := True;
  except
   Result := False;
  end;
  Reg.Free;
end;
Код рабочий!
Выдрал из одного из своих проектов.
Естественно, для записи в HKCR хочет прав администратора, так что первый запуск проги нужно делать из-под админа.
Как говорится - зато бесплатно. Не нравится - доработай напильником!
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 22.05.2015, 12:18   #5
igry
Новичок
Джуниор
 
Регистрация: 22.05.2015
Сообщений: 1
По умолчанию

Цитата:
Сообщение от eoln Посмотреть сообщение
Если не заморачиваться нововведениями, то примерно так
Вложение 74792
ПыСы. Раздел HKEY_CLASSES_ROOT Иконка в defaulicon.
Ну и изменять надо не mp3, а html и hml
Лучше прислушаться к профессионалу. У меня получилось.
igry вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Браузер по умолчанию inetinf Работа с сетью в Delphi 5 04.12.2014 11:15
браузер по умолчанию и реестр Mihsan Помощь студентам 0 23.03.2011 20:00
Как запустить браузер по умолчанию? peter888 Работа с сетью в Delphi 2 06.09.2010 09:32
Браузер по умолчанию -=Virus=- Работа с сетью в Delphi 19 01.11.2009 23:32
браузер по-умолчанию MAcK Общие вопросы Delphi 2 31.03.2009 11:56