Discussion :

[ybruant]

Bonjour,

Je recherche pour D6 un bout de code permettant de trouver
quels sont les browsers installés sur un PC donné et quel est
le browser par défaut.

Merci.

[the_magik_mushroom]

ça doit se trouver en cherchant dans le registre.

genre : HKEY_LOCAL_MACHINE\SOFTWARE\Classes\HTTP\Shell\Open\ddeexec\Application

[ybruant]

Merci pour la réponse, mais je ne trouve rien dans les clés HTTP,
où qu'elles soient ? Or sur ma machine il y a ie, firefox et opera...

[TicTacToe]

Je ne sais pas si cela existe.
Si je devais le faire, je me renseignerai sur les quelques browsers les plus célèbre qui couvrent 99% des utilisateurs (IE,FF et autres mozilla, netscape, opera...) et je chercherai pour chacun, quelle clef prouvent qu'ils sont installés. HKLM\SoftWare\... peut-être ?

Sinon, pour le browser par défaut, la proposition de the_magik semble correcte en ce qui me concerne pour Firrefox

[the_magik_mushroom]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function GetDefaultBrowser: string;
var
  Reg: TRegistry;
begin
  result := '';
 
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    if Reg.OpenKey('http\shell\open\command', false) then begin
      result := Reg.ReadString('');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;