Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3761 connectés 

  FORUM HardWare.fr
  Programmation

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

 
 


Dernière réponse
Sujet : [API] Récupérer le N° de version d'une DLL
Kyle_Katarn 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

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
Kyle_Katarn 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
Kyle_Katarn 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 ?
godbout :jap:
Kyle_Katarn merci, c'est nickel
godbout http://forum.hardware.fr/forum2.ph [...] h=&subcat=
Kyle_Katarn je vais voir ça merci
Carbon_14 Peut-être http://codeguru.earthweb.com/dll/dll_version.shtml ?
Kyle_Katarn Voilà c'est quelle API qu'il faut utiliser pour récupérer le N° de version d'une DLL ?

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)