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

[Shouldercannon]

Доброго времени суток!
Подскажите, пожалуйста, что нужно исправить в реестре, чтобы все HTML-странички имели иконку указанного браузера и открывались через указанный браузер.

[eoln]

Если не заморачиваться нововведениями, то примерно так
0.jpg
ПыСы. Раздел HKEY_CLASSES_ROOT Иконка в defaulicon.
Ну и изменять надо не mp3, а html и hml

[Shouldercannon]

Пробовал так

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);

Результат нулевой

[min@y™]

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

// Регистрация расширения, установка иконки и ассоциативной программы
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 хочет прав администратора, так что первый запуск проги нужно делать из-под админа.
Как говорится - зато бесплатно. Не нравится - доработай напильником!

[igry]

Сообщение от eoln

Если не заморачиваться нововведениями, то примерно так
Вложение 74792
ПыСы. Раздел HKEY_CLASSES_ROOT Иконка в defaulicon.
Ну и изменять надо не mp3, а html и hml

Лучше прислушаться к профессионалу. У меня получилось.