Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

Comment récupérer la version d'un exécutable ?


Sujet :

Langage Delphi

  1. #1
    Membre habitué
    Profil pro
    Développeur informatique
    Inscrit en
    juin 2002
    Messages
    241
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : juin 2002
    Messages : 241
    Points : 147
    Points
    147
    Par défaut Comment récupérer la version d'un exécutable ?
    Bonjour,

    J'ai trouvé pleins de codes sources qui permettent de récuperer le N° de version d'un .EXE, mais aucun ne marche avec Winword.exe.
    Ces informations sont pourtant présentes dans le programme et visibles si on fait un clic droit dessus.
    Existe t'il une astuce ou un pb de traduction ?

    Merci pour votre aide.

  2. #2
    DMO
    DMO est déconnecté
    Membre averti
    Avatar de DMO
    Profil pro
    Inscrit en
    février 2004
    Messages
    290
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2004
    Messages : 290
    Points : 324
    Points
    324
    Par défaut
    J'utilise pour ma part TFileVersionInfo. Je n'ai pas testé avec Ms Word (puisque j'utilise Open Office), mais tu peux toujours essayer s'il ne fait pas déjà partie des "pleins de codes sources" que tu as déjà testé (on le trouve chez http://torry.net/ si je me souviens bien).
    « La simplicité est la sophistication suprême » (Léonard de Vinci)

  3. #3
    Membre actif
    Avatar de Eric.H
    Homme Profil pro
    Inscrit en
    décembre 2004
    Messages
    220
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : décembre 2004
    Messages : 220
    Points : 282
    Points
    282
    Par défaut
    Me retourne extactement le N° de version que si je fait "Propriete" sur winword.exe, soit 11.0.6502.0
    Par contre est different du menu "A propos de Microsoft office word" soit
    11.6502.6408

    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
    procedure TForm2.Button1Click(Sender: TObject);
    VAR
      InfoSize: DWORD;
      lpdwHandle: Cardinal;
      VerBuf: Pointer;
      PFI: PVSFixedFileInfo;
      VerSize: DWORD;
      Fichier,Version:String;
    begin
      Fichier:='C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE';
      Version:='';
      InfoSize := GetFileVersionInfoSize(Pchar(Fichier), lpdwHandle);
      if InfoSize <> 0 then
      begin
        GetMem(VerBuf, InfoSize);
        try
          if GetFileVersionInfo(Pchar(Fichier), lpdwHandle, InfoSize, VerBuf) then
            if VerQueryValue(VerBuf, '\', Pointer(PFI), VerSize) then
              BEGIN
                WITH PFI^ DO
                  BEGIN
                    Version:=IntToStr(dwFileVersionMS shr 16)+'.'+IntToStr(dwFileVersionMS AND $FFFF);
                    Version:=Version+'.'+IntToStr(dwFileVersionLS shr 16)+'.'+IntToStr(dwFileVersionLS AND $FFFF);
                  END;
              END;
        finally
          FreeMem(VerBuf);
        end;
      end;
      showmessage(Version)
    end;

Discussions similaires

  1. Comment récupérer la version d'excel au démarrage d'un fichier
    Par D-D-Du-06 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/04/2010, 12h46
  2. comment récupérer la version du système sous linux?
    Par ase707 dans le forum Administration système
    Réponses: 9
    Dernier message: 18/04/2008, 19h07
  3. Réponses: 2
    Dernier message: 14/09/2006, 19h53
  4. [C#]Comment récupérer la version du FrameWork?
    Par fantomchris dans le forum C#
    Réponses: 6
    Dernier message: 24/03/2006, 15h39
  5. [MFC?] Comment récupérer la directory de l'exécutable?
    Par bigboomshakala dans le forum MFC
    Réponses: 9
    Dernier message: 14/05/2004, 16h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo