Как узнать путь к браузеру по умолчанию

Автор:

uses registry;

...

function GetDefBrowserPatch : string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    if Reg.OpenKey('htmlfile\shell\open\command', False) then
    begin
      Result := Reg.ReadString('');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

Просмотров: 4137

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.