Discussion :

[Chekov]

Bonjour,

j'aimerai afficher dans mon programme le numéro de version de plusieurs dll utilisées par l'exécutable principal. Est-ce possible ou dois-je obligatoirement implémenter une méthode dans mes dll pour cela ?

[ProgElecT]

Une methode permet de recuperer pas mal d'informations.
Exemples sous windows 2K

0 Name : OLEAUT32.DLL
1 Size : 617 Ko
2 Type : Extension de l'application
3 Date Modified : 05/12/2007 11:40
4 Date Created : A
6 Attributes : 08/12/2000 16:49
7 Status : 19/12/2008 12:29
8 Owner : Administrateurs
16 Artist : Microsoft Corporation
18 Year : 2.40.4532.0
20 Genre : 2.40.4532

n° version est dans Year: 2.40.4532.0 et/ou dans Genre = 2.40.4532
Un autre exemple

0 Name : WININET.DLL
1 Size : 568 Ko
2 Type : Extension de l'application
3 Date Modified : 16/10/2008 10:50
4 Date Created : A
6 Attributes : 16/10/2008 10:50
7 Status : 19/12/2008 06:52
8 Owner : Administrateurs
16 Artist : Microsoft Corporation
17 Album Title : Extensions Internet pour Win32
18 Year : 6.0.2800.1617
19 Track Number : Système d'exploitation Microsoft® Windows®
20 Genre : 6.00.2800.1617

voici la sub

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
Public Sub informationsFichier()
'******************************
'******** recuperé sur DVP *********
'******************************
'pour avoir les infos que tu recherches
'necessite d'activer reference Microsoft Shell Controls and Automation
 
Dim objShell As Shell
Dim objFolder As Folder
Dim strFileName As FolderItem
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Chemin) 'adapter le chemin
Set strFileName = objFolder.Items.Item(Fichier) 'adapter le fichier
List1.Clear: LargMin = 0
For T = 0 To objFolder.Items.Count - 1
 If objFolder.GetDetailsOf(strFileName, T) <> "" Then
  List1.AddItem CStr(T) & " " & NamIndx(T) & Trim$(objFolder.GetDetailsOf(strFileName, T))
  Debug.Print List1.List(List1.NewIndex)
  If LargMin < Len(List1.List(List1.NewIndex)) Then LargMin = Len(List1.List(List1.NewIndex))
 End If
Next
Set objShell = Nothing: Set objFolder = Nothing: Set strFileName = Nothing
End Sub

[Chekov]

Si je comprend bien, ton exemple permet de récupérer la version à partir du chemin d'un fichier.

Ce que j'aimerai, c'est récupérer la version de la DLL effectivement chargée. En effet, si on a enregistrée la DLL à différents endroits du disque, dans des versions différentes mais avec compatibilité binaire, je n'ai aucun moyen d'être sûr d'avoir la version voulue.

Dit comme cela, ça peut paraître tordu, mais j'ai eu un cas ambigu que j'aimerai ne plus retrouver. J'ai finalement ajouté la méthode dans mes DLL et j'y fais ensuite appel.
Cependant, je ne pourrai pas faire cela pour des DLL qui ne sont pas de moi, donc ma question m'intéresse toujours si une solution existe...

[Delbeke]

Il existe sur ce site, un lien pour aller sur AllApi

http://vb.developpez.com/outils/?page=outils#apiguide

Télécharge ApiGuide et installe le . C'est une mine d'informations incontournable pour les programmeurs qui veulent aller plus loin..

Cherches y "GetFileVersionInfo"

[DarkVader]

Avec le PID
récupérer les modules en mémoire (voir EnumProcessModules)
puis pour chaque module, sa source (GetModuleFileNameExA).
Pour les versions, GetFileVersionInfo et VerQueryValue

[Chekov]

Avec le PID
récupérer les modules en mémoire (voir EnumProcessModules)
puis pour chaque module, sa source (GetModuleFileNameExA).
Pour les versions, GetFileVersionInfo et VerQueryValue

Ah oui, c'est une solution qui me plait bien, j'essaierai ça. Merci DarkVader.

Bonne fin d'année.