[API] Récupérer le N° de version d'une DLL

Récupérer le N° de version d'une DLL [API] - Programmation

Marsh Posté le 29-07-2002 à 13:05:13    

Voilà c'est quelle API qu'il faut utiliser pour récupérer le N° de version d'une DLL ?

Reply

Marsh Posté le 29-07-2002 à 13:05:13   

Reply

Marsh Posté le 29-07-2002 à 14:33:14    

Reply

Marsh Posté le 29-07-2002 à 14:34:05    

je vais voir ça merci

Reply

Marsh Posté le 29-07-2002 à 14:35:13    

Reply

Marsh Posté le 29-07-2002 à 14:36:34    

merci, c'est nickel

Reply

Marsh Posté le 29-07-2002 à 14:44:23    

:jap:


---------------
Super.
Reply

Marsh Posté le 29-07-2002 à 15:15:31    

parcontre j'arrive pas à utiliser VerQueryValue en VB car il faut absolument lui passer un poiteur vers une structure VS_FIXEDFILEINFO  et je vois pas comment passer une pointeur en VB...
 
Un peu d'aide ?

Reply

Marsh Posté le 29-07-2002 à 15:41:53    

Voilà le code VB :
 

Code :
  1. Usage
  3. x = GetVersionInfo("c:\program files\microsoft office\office\MSO9.DLL" )Code
  5. Private Type VS_FIXEDFILEINFO
  6.     dwSignature As Long
  7.     dwStrucVersion As Long
  8.     dwFileVersionMSl As Integer
  9.     dwFileVersionMSh As Integer
  10.     dwFileVersionLSl As Integer
  11.     dwFileVersionLSh As Integer
  12.     dwProductVersionMSl As Integer
  13.     dwProductVersionMSh As Integer
  14.     dwProductVersionLSl As Integer
  15.     dwProductVersionLSh As Integer
  16.     dwFileFlagsMask As Long
  17.     dwFileFlags As Long
  18.     dwFileOS As Long
  19.     dwFileType As Long
  20.     dwFileSubtype As Long
  21.     dwFileDateMS As Long
  22.     dwFileDateLS As Long
  23. End Type
  25. Private Declare Function GetFileVersionInfo _
  26.     Lib "Version.dll" Alias _
  27.     "GetFileVersionInfoA" (ByVal lptstrFilename _
  28.     As String, ByVal dwHandle As Long, ByVal _
  29.     dwLen As Long, lpData As Any) As Long
  31. Private Declare Function _
  32.     GetFileVersionInfoSize Lib "Version.dll" _
  33.     Alias "GetFileVersionInfoSizeA" (ByVal _
  34.     lptstrFilename As String, lpdwHandle As _
  35.     Long) As Long
  37. Private Declare Sub CopyMemory Lib "kernel32" _
  38.     Alias "RtlMoveMemory" (dest As Any, src As _
  39.     Long, ByVal length As Long)
  41. Private Declare Function VerQueryValue Lib _
  42.     "Version.dll" Alias "VerQueryValueA" _
  43.     (pBlock As Any, ByVal lpSubBlock As String, _
  44.     lplpBuffer As Any, puLen As Long) As Long
  46. Public Function GetVersionInfo(ByVal sFile As _
  47.     String) As String
  49.     Dim lDummy As Long
  50.     Dim sBuffer() As Byte
  51.     Dim lBufferLen As Long, lVerPointer As Long
  52.     Dim lVerBufferLen As Long
  53.     Dim udtVerBuffer As VS_FIXEDFILEINFO
  54.    
  55.     'Default return value
  56.     GetVersionInfo = "N/A"
  57.    
  58.     'Attempt to retrieve version resource
  59.     lBufferLen = GetFileVersionInfoSize(sFile, _
  60.     lDummy)
  61.    
  62.     If lBufferLen > 0 Then
  63.        
  64.         ReDim sBuffer(lBufferLen)
  65.        
  66.         If GetFileVersionInfo(sFile, 0&, _
  67.             lBufferLen, sBuffer(0)) <> 0 Then
  68.            
  69.             If VerQueryValue(sBuffer(0), _
  70.                 "\", lVerPointer, lVerBufferLen) _
  71.                 <> 0 Then
  72.        
  73.                 CopyMemory udtVerBuffer, ByVal _
  74.                     lVerPointer, Len(udtVerBuffer)
  75.                    
  76.                 With udtVerBuffer
  77.                     GetVersionInfo = _
  78.                         .dwFileVersionMSh & "." & _
  79.                         .dwFileVersionMSl & "." & _
  80.                         .dwFileVersionLSh & "." & _
  81.                         .dwFileVersionLSl
  82.                 End With
  83.        
  84.             End If
  85.         End If
  86.     End If
  88. End Function

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed