Détecter si IE7 est installé

**ired** · 15/12/2006, 13h43

Bonjour,
mon programme utilise un Tweb, et apperement toutes les fonctions ne sont plus compatible IE7. Ne voulant pas tout perturber pour ce maudit navigateur, j'aimerais trouver le moyen de détecter si IE7 est installer pour prévenir l'utilisateur. Vous avez une idée ?
Merci bcp

**Pedro** · 15/12/2006, 13h46

Salut

Tu peux essayer en récupérant la version de iexplore.exe normalement

Tu peux t'inspirer de ça:
http://delphi.developpez.com/faq/?pa...icationversion

**ired** · 15/12/2006, 13h57

Merci de ta réponse Pedro. Par contre, je suis incapable de trouver quoi modifier

, tu peu m'aider ?

Merci

**Pedro** · 15/12/2006, 14h01

Envoyé par ired

Merci de ta réponse Pedro. Par contre, je suis incapable de trouver quoi modifier

, tu peu m'aider ?

Merci

Rhooo quand même

Modifie-la comme ceci:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
function ApplicationVersion(const ExeName: string): String
var
  VerInfoSize, VerValueSize, Dummy: DWord;
  VerInfo: Pointer;
  VerValue: PVSFixedFileInfo;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ExeName), Dummy);
  {Deux solutions : }
  if VerInfoSize <> 0 then
  {- Les info de version sont inclues }
  begin
    {On alloue de la mémoire pour un pointeur sur les info de version : }
    GetMem(VerInfo, VerInfoSize);
    {On récupère ces informations : }
    GetFileVersionInfo(PChar(ExeName), 0, VerInfoSize, VerInfo);
    VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
    {On traite les informations ainsi récupérées : }
    with VerValue^ do
    begin
      Result := IntTostr(dwFileVersionMS shr 16);
      Result := Result + '.' + IntTostr(dwFileVersionMS and $FFFF);
      Result := Result + '.' + IntTostr(dwFileVersionLS shr 16);
      Result := Result + '.' + IntTostr(dwFileVersionLS and $FFFF);
    end;
 
    {On libère la place précédemment allouée : }
    FreeMem(VerInfo, VerInfoSize);
  end
 
  else
    {- Les infos de version ne sont pas inclues }
    {On déclenche une exception dans le programme : }
    raise EAccessViolation.Create('Les informations de version de sont pas inclues');
end;