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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [API] Récupérer le N° de version d'une DLL

Kyle_Katarn

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

Publicité

Carbon_14

Peut-être http://codeguru.earthweb.com/dll/dll_version.shtml ?

Kyle_Katarn

je vais voir ça merci

godbout

Génial.

http://forum.hardware.fr/forum2.ph [...] h=&subcat=

---------------
Super.

Kyle_Katarn

merci, c'est nickel

godbout

Génial.

:jap:

---------------
Super.

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 ?

Kyle_Katarn

Voilà le code VB :

Code :

Usage
x = GetVersionInfo("c:\program files\microsoft office\office\MSO9.DLL" )Code
Private Type VS_FIXEDFILEINFO
dwSignature As Long
dwStrucVersion As Long
dwFileVersionMSl As Integer
dwFileVersionMSh As Integer
dwFileVersionLSl As Integer
dwFileVersionLSh As Integer
dwProductVersionMSl As Integer
dwProductVersionMSh As Integer
dwProductVersionLSl As Integer
dwProductVersionLSh As Integer
dwFileFlagsMask As Long
dwFileFlags As Long
dwFileOS As Long
dwFileType As Long
dwFileSubtype As Long
dwFileDateMS As Long
dwFileDateLS As Long
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 Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" (dest As Any, src As _
Long, ByVal length 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
Public Function GetVersionInfo(ByVal sFile As _
String) As String
Dim lDummy As Long
Dim sBuffer() As Byte
Dim lBufferLen As Long, lVerPointer As Long
Dim lVerBufferLen As Long
Dim udtVerBuffer As VS_FIXEDFILEINFO
'Default return value
GetVersionInfo = "N/A"
'Attempt to retrieve version resource
lBufferLen = GetFileVersionInfoSize(sFile, _
lDummy)
If lBufferLen > 0 Then
ReDim sBuffer(lBufferLen)
If GetFileVersionInfo(sFile, 0&, _
lBufferLen, sBuffer(0)) <> 0 Then
If VerQueryValue(sBuffer(0), _
"\", lVerPointer, lVerBufferLen) _
<> 0 Then
CopyMemory udtVerBuffer, ByVal _
lVerPointer, Len(udtVerBuffer)
With udtVerBuffer
GetVersionInfo = _
.dwFileVersionMSh & "." & _
.dwFileVersionMSl & "." & _
.dwFileVersionLSh & "." & _
.dwFileVersionLSl
End With
End If
End If
End If
End Function

FORUM HardWare.fr

Programmation

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

Sujets relatifs
Problème d'identification de DLL	[ASPI] Récupérer le noms des périphériques accrochées à un adapter ?
[C++] MFC + DLL + multilanguage	Comment récupérer les accents d'une requete SQL (oracle) ?
Récupérer une erreur de methode inexistante	Récuperer les informations contenues dans un jpg ...
[php] recuperer le statut icq de qqun	recuperer le type MIME d'un fichier en php ?
[PHP] Récuperer une variable d'une fonction...	Comment récupérer les dimensions de l'écran ?
Plus de sujets relatifs à : [API] Récupérer le N° de version d'une DLL

Page générée en 0.073 secondes