Список всех веб-браузеров, установленных на компьютере с Windows

Question

Есть ли общий метод/api для отображения всех веб-браузеров (имя, исполняемый, по умолчанию да/нет), установленных на моей машине (и на каждого пользователя), а также узнать, который является веб-браузером по умолчанию?

Я видел этот вопрос: How to find all the browsers installed on a machine

И на MSDN: How to Register an Internet Browser or Email Client With the Windows Start Menu в котором говорится, что веб-браузеры должны зарегистрировать себя под HKLM\SOFTWARE\Clients\StartMenuInternet (и HKCU)

Это действительно общий/правильный подход? (И если да, то любое твердое осуществление там?)

---

Моя цель состоит в том, чтобы создать выпадающее меню со списком всех веб-браузеров, установленных на компьютере пользователя (с указанием по умолчанию), и позволяют чтобы просмотреть его HTML-файл/URL-адреса с одним из доступных внешних веб-браузеров.

Answer 1

Вы могли бы сделать что-то вроде

procedure ListRegisteredBrowsers(List: TStrings); 
var 
    reg: TRegistry; 
    ki: TRegKeyInfo; 
    i: Integer; 
    keyname: string; 
    len: DWORD; 
begin 
    reg := TRegistry.Create; 
    try 
    reg.RootKey := HKEY_LOCAL_MACHINE; 
    if not Reg.KeyExists('\SOFTWARE\Clients\StartMenuInternet') then Exit; 
    if not Reg.OpenKey('\SOFTWARE\Clients\StartMenuInternet', false) then 
     raise Exception.Create('ListRegisteredBrowsers: Could not open registry key.'); 
    if not reg.GetKeyInfo(ki) then 
     raise Exception.Create('ListRegisteredBrowsers: Could not obtain registry key information.'); 
    List.Clear; 
    SetLength(keyname, len); 
    for i := 0 to ki.NumSubKeys - 1 do 
    begin 
     len := ki.MaxSubKeyLen + 1; 
     if RegEnumKeyEx(reg.CurrentKey, i, PChar(keyname), len, nil, nil, nil, nil) <> ERROR_SUCCESS then 
     RaiseLastOSError; 
     if reg.OpenKey('\SOFTWARE\Clients\StartMenuInternet\' + keyname, false) then 
     List.Add(reg.ReadString('')); 
     Reg.OpenKey('\SOFTWARE\Clients\StartMenuInternet', true); 
    end; 
    finally 
    reg.Free; 
    end; 
end; 

и

function GetDefaultBrowser: string; 
var 
    reg: TRegistry; 
begin 
    result := ''; 
    reg := TRegistry.Create; 
    try 
    reg.RootKey := HKEY_CURRENT_USER; 
    if Reg.OpenKey('\SOFTWARE\Clients\StartMenuInternet', false) then 
     result := reg.ReadString('') 
    else 
    begin 
     reg.RootKey := HKEY_LOCAL_MACHINE; 
     if Reg.OpenKey('\SOFTWARE\Clients\StartMenuInternet', false) then 
     result := reg.ReadString('') 
    end; 
    reg.RootKey := HKEY_LOCAL_MACHINE; 
    if Reg.OpenKey('\SOFTWARE\Clients\StartMenuInternet\' + result, false) then 
     result := reg.ReadString(''); 
    finally 
    reg.Free; 
    end; 
end; 

проверить:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    sl: TStringList; 
    i: Integer; 
    DefBrw: string; 
begin 
    DefBrw := GetDefaultBrowser; 
    sl := TStringList.Create; 
    try 
    ListRegisteredBrowsers(sl); 
    Memo1.Lines.BeginUpdate; 
    for i := 0 to sl.Count - 1 do 
     if SameText(sl[i], DefBrw) then 
     Memo1.Lines.Add(sl[i] + ' (Default)') 
     else 
     Memo1.Lines.Add(sl[i]); 
    Memo1.Lines.EndUpdate; 
    finally 
    sl.Free; 
    end; 
end; 

Answer 2

Этот метод находит все браузеры, зарегистрированные как Меню «Пуск» Интернет-приложения. На практике этого будет достаточно, поскольку все основные браузеры регистрируются таким образом. Если браузер не зарегистрировался как Меню «Пуск» Интернет-приложения, тогда у него нет никаких шансов, что Windows заметит его и предложит браузер для пользователя.

MSDN от темы, которая объясняет все это здесь: http://msdn.microsoft.com/en-us/library/windows/desktop/dd203067.aspx

меню Пуск в Windows XP и Windows Vista содержит зарезервированные слоты для Интернета по умолчанию (браузер) и электронная почта (почта) клиентов, вместе широко известный как Интернет-приложения «Пуск». Приложения, которые регистрируются в качестве меню «Пуск» Интернет-приложения, делают это во всей системе (для каждой машины). В Windows Vista пользователь может использовать функцию «Программы по умолчанию» для установки по умолчанию для каждого пользователя.