Se connecter
Se connecter
Inscription
Mot de passe perdu
Connexion:
[Actualités]
Au nom de la sécurité, Outlook sera plus exigeant (et préparez-vous à dire a...
[Actualités]
Votre identifiant Apple s'appellera Account Apple
[Actualités]
Google Lens arrive par surprise sur YouTube : voici où
[Actualités]
La version finale d'Android 14 QPR3 arrive : le précurseur d'Android 15
[Actualités]
Test Ratyrinth (PS5)
[Actualités]
Spotify HiFi a attendu longtemps et il ne sera pas gratuit
[Actualités]
tvOS 18 dispose de « rayons X » pour identifier les acteurs et les chansons
[Actualités]
Xbox : la stratégie multiplateforme s'étend
[Actualités]
macOS Sequoia permet la mise en miroir de l'iPhone et, enfin, une gestion des fe...
[Actualités]
iOS 18 aura des emojis qui "n'existent pas" et ne sont visibles que sur iPhone
[Articles]
Unit4 lance Success4U pour une mise en œuvre et une expansion réussie des solu...
[Articles]
Ratyrinth
[Articles]
Men of War II
[Articles]
Paper Mario : La Porte Millénaire
[Articles]
Deel nomme Eline Fruytier comme Responsable Mid Market Benelux
[Articles]
The Rogue Prince of Persia
[Articles]
Musashi vs Cthulhu
[Articles]
Terminal 81
[Articles]
Trackline Express
[Articles]
V-Rising
Actualités
Lettre d'information
Proposer une actualité
Archives
Actualités
Articles
Programmation
Press Release
Matériel
Logiciels
Livres
Interviews
Derniers commentaires
Jeux Vidéos
XBox One
XBox 360
Wii U
PSP
PS4
PS3
PC
DS
GameCube
3DS
Forum
Derniers messages
Informatique
Fun
Divers
Logithèque
Blogs
Divers
A Propos
Annonceurs
Contact
Recherche
RSS
Editer un article
Titre
Mots Clés
Texte
[vb]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) 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 Function GetFileVersion(ByVal sPath As String) As String Dim rc As Long Dim lDummy As Long Dim sBuffer() As Byte Dim lBufferLen As Long Dim lVerPointer As Long Dim udtVerBuffer As VS_FIXEDFILEINFO Dim lVerbufferLen As Long On Error GoTo GetFileVersion_Error '*** Get size **** lBufferLen = GetFileVersionInfoSize(sPath, lDummy) If lBufferLen < 1 Then GetFileVersion = "" Exit Function End If '**** Store info to udtVerBuffer struct **** ReDim sBuffer(lBufferLen) rc = GetFileVersionInfo(sPath, 0&, lBufferLen, sBuffer(0)) rc = VerQueryValue(sBuffer(0), "\", lVerPointer, lVerbufferLen) MoveMemory udtVerBuffer, lVerPointer, Len(udtVerBuffer) GetFileVersion = Format$(udtVerBuffer.dwFileVersionMSh) & "." & Format$(udtVerBuffer.dwFileVersionMSl) & "." & Format$(udtVerBuffer.dwFileVersionLSh) & "." & Format$(udtVerBuffer.dwFileVersionLSl) On Error GoTo 0 Exit Function GetFileVersion_Error: GetFileVersion = "" End Function[/vb]
Fichier
Forum
-
Derniers messages
Bavardages
Aujourd'hui, je rénove ou je construis ^^
Réseaux et Télécom
Administrateur Réseau - Cisco
Réseaux et Télécom
Problème wifi (POE)
Software
Postfix - Need help
Bavardages
Oh râge oh désespoir !
Programmation
Enregistrement client et envoi mail
Software
SÉCURITÉ MACBOOK
Hardware
conseil matos réseau?
Hardware
nVidia Shield Android TV
Software
Transformer de l'audio en texte
Actualités
-
Archives
Microsoft
Au nom de la sécurité, Outlook sera plus exigeant (et préparez-vous à dire adieu à la version allégée)
Apple
Votre identifiant Apple s'appellera Account Apple
Google
Google Lens arrive par surprise sur YouTube : voici où
Android
La version finale d'Android 14 QPR3 arrive : le précurseur d'Android 15
Jeux Vidéos
Test Ratyrinth (PS5)
Ada
CSS
Cobol
CPP
HTML
Fortran
Java
JavaScript
Pascal
Perl
PHP
Python
SQL
VB
XML
Anon URL
DailyMotion
eBay
Flickr
FLV
Google Video
Google Maps
Metacafe
MP3
SeeqPod
Veoh
Yahoo Video
YouTube
6px
8px
10px
12px
14px
16px
18px
Informaticien.be
- © 2002-2024
Akretio
SPRL - Generated via
Kelare
The Akretio Network:
Akretio
-
Freedelity
-
KelCommerce
-
Votre publicité sur informaticien.be ?