Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Мар

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

Posted by micher under Delphi

Как узнать Веб-браузер, который стоит по-умолчанию в системе?

Stilet



procedure TForm1.Button1Click(Sender: TObject);

var

  Reg: TRegistry;

  KeyName: string;

  ValueStr: string;

begin

  Reg:= TRegistry.Create;

  try

    Reg.RootKey:= HKEY_CLASSES_ROOT;

    KeyName:= 'HKEY_LOCAL_MACHINE\SOFTWARE\Classes \http\shell\open\command';
    if Reg.OpenKey(KeyName, False) then

    begin

      ValueStr:= Reg.ReadString('');

      Reg.CloseKey;

      ShowMessage(ValueStr);

    end

    else

      ShowMessage('There is nît a default browser');

  finally

    Reg.Free;

  end;

end;