Détecter si IE7 est installé

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 8-)

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

Merci de ta réponse Pedro. Par contre, je suis incapable de trouver quoi modifier :? , tu peu m'aider ?

Merci :)

Citation:

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:

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;

Je pense que je n'ai rien oublié ;)

PS: si le sujet est résolu, n'oublie pas de cliquer sur :resolu: ;)

Ah oui c'était pas dur :oops:
Merci Pedro ! Encore une fois tu me sauve :mrgreen:
Et Hop Résolu!