Connaitre la version d'un EXE quelconqu [Résolu]

ilbrec 19 Messages postés lundi 5 juillet 2004Date d'inscription 4 août 2006 Dernière intervention - 29 mars 2005 à 09:51 - Dernière réponse : cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention
- 29 mars 2005 à 13:48
Bonjour,

je souhaite mettre à jour un prog que j'ai fait mais uniquement si celui-ci n'est pas à jour.

Je récupère de mon prog sa version et tout et tout (app.version, ...).
Mais je voudrais savoir s'il est possible de récupérer un numéro de
version d'une appli externe, genre on désire savoir si Excel est dans
la version 9 ou 10 (mais attention je me fiche d'excel, c'est juste un
exemple).



Je vous remercie par avance.

Ilbrec
Afficher la suite 

1 réponse

Meilleure réponse
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 29 mars 2005 à 13:48
3
Merci
Je te colle le module qui me sert à ... ce que tu demandes (mais on doit bien trouver ça dans les sources de vbfrance ...) :

Option Explicit


Private Type VS_FIXEDFILEINFO
dwSignature As Long dwStrucVersionl As Integer ' e.g. &h0000 0 dwStrucVersionh As Integer ' e.g. &h0042 .42 dwFileVersionMSl As Integer ' e.g. &h0003 3 dwFileVersionMSh As Integer ' e.g. &h0075 .75 dwFileVersionLSl As Integer ' e.g. &h0000 0 dwFileVersionLSh As Integer ' e.g. &h0031 .31 dwProductVersionMSl As Integer ' e.g. &h0003 3 dwProductVersionMSh As Integer ' e.g. &h0010 .1 dwProductVersionLSl As Integer ' e.g. &h0000 0 dwProductVersionLSh As Integer ' e.g. &h0031 .31
dwFileFlagsMask As Long ' = &h3F for version "0.42"
dwFileFlags As Long ' e.g. VFF_DEBUG Or VFF_PRERELEASE
dwFileOS As Long ' e.g. VOS_DOS_WINDOWS16
dwFileType As Long ' e.g. VFT_DRIVER
dwFileSubtype As Long ' e.g. VFT2_DRV_KEYBOARD
dwFileDateMS As Long ' e.g. 0
dwFileDateLS As Long ' e.g. 0
End Type


Private Declare Function GetFileVersionInfo Lib "Version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwhandle As Long, ByVal dwlen As Long, lpData As Any) As Long
Private Declare Function GetFileVersionInfoSize Lib "Version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
Private Declare Function VerQueryValue Lib "Version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Any, puLen As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, ByVal Source As Long, ByVal length As Long)
'


Public Function VersionEXE(ByVal Fichier As String) As String


' Renvoie la version d'un executable sous la forme X.Y.Z
' (issu de API-Guide)


Dim rc As Long, lDummy As Long, sBuffer() As Byte
Dim lBufferLen As Long, lVerPointer As Long, udtVerBuffer As VS_FIXEDFILEINFO
Dim lVerbufferLen As Long

On Error GoTo Erreur
VersionEXE = "0.0.0"

'*** Get size ****
lBufferLen = GetFileVersionInfoSize(Fichier, lDummy)
If lBufferLen < 1 Then Exit Function

'**** Store info to udtVerBuffer struct ****
ReDim sBuffer(lBufferLen)
rc = GetFileVersionInfo(Fichier, 0&, lBufferLen, sBuffer(0))
rc = VerQueryValue(sBuffer(0), "", lVerPointer, lVerbufferLen)
MoveMemory udtVerBuffer, lVerPointer, Len(udtVerBuffer)


'**** Determine File Version number ****
' Original
'VersionEXE = Cstr(udtVerBuffer.dwFileVersionMSh) & "." & _
Cstr(udtVerBuffer.dwFileVersionMSl) & "." & _
Cstr(udtVerBuffer.dwFileVersionLSh) & "." & _
Cstr(udtVerBuffer.dwFileVersionLSl)
' Modifié : le LSh est tjrs à 0
VersionEXE = CStr(udtVerBuffer.dwFileVersionMSh) & "." & _
CStr(udtVerBuffer.dwFileVersionMSl) & "." & _
CStr(udtVerBuffer.dwFileVersionLSl)

Exit Function

Erreur:
VersionEXE = "0.0.0"
End Function

Vala
Jack
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

Merci cs_Jack 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 83 internautes ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.