Savoir si Internet Explorer est installé

uses registry;

function IE_Installed : Boolean;
var
Reg: TRegistry;
s: String;
begin
Reg:=TRegistry.Create;
With Reg do
Begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('SoftwareMicrosoftInternet Explorer', False);
if ValueExists('Version') then S := ReadString('Version')
else S :='';
CloseKey;
Free;
end;
if (length(S)>0) and (StrtoInt(s[1])>3) then result:=true else result:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IE_Installed then
ShowMessage('Internet Explorer installed.');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour18/11/2001
VisualisationVu 911 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Internet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur