VB 取得指定exe文件版本号

【函数】  
  GetFileVersionInfo  
   
  【操作系统】  
  Win9X:Yes  
  WinNT:Yes  
   
  【声明】  
  GetFileVersionInfo   Lib   "version.dll"     Alias   "GetFileVersionInfoA"   (ByVal   lptstrFilename   As   String,   ByVal   dwHandle   As   Long,   ByVal   dwLen   As   Long,   lpData   As   Any)   As   Long  
   
  【说明】  
   
      从支持版本标记的一个模块里获取文件版本信息    
   
  【返回值】  
   
      Long，非零表示成功，零表示失败。会设置GetLastError    
   
  【其它】  
   
      请看vb的api文本查看器中的声明：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  
   
  【参数表】  
      lptstrFilename   -     String，欲从中载入版本信息的一个文件的名字  
   
      dwHandle   -------     Long，win32中未用  
   
      dwLen   ----------     Long，由lpData参数指定的字节数组或缓冲区的大小。用GetFileVersionInfoSize函数判断要求的缓冲区长度有多大  
   
      lpData   ---------     Byte，指定一个字节缓冲区的第一个字节。该缓冲区用于装载文件的版本信息   
    
    
   

例子:  
  Const   VS_FFI_SIGNATURE   =   &HFEEF04BD  
  Const   VS_FFI_STRUCVERSION   =   &H10000  
  Const   VS_FFI_FILEFLAGSMASK   =   &H3F&  
  Const   VS_FF_DEBUG   =   &H1  
  Const   VS_FF_PRERELEASE   =   &H2  
  Const   VS_FF_PATCHED   =   &H4  
  Const   VS_FF_PRIVATEBUILD   =   &H8  
  Const   VS_FF_INFOINFERRED   =   &H10  
  Const   VS_FF_SPECIALBUILD   =   &H20  
  Const   VOS_UNKNOWN   =   &H0  
  Const   VOS_DOS   =   &H10000  
  Const   VOS_OS216   =   &H20000  
  Const   VOS_OS232   =   &H30000  
  Const   VOS_NT   =   &H40000  
  Const   VOS__BASE   =   &H0  
  Const   VOS__WINDOWS16   =   &H1  
  Const   VOS__PM16   =   &H2  
  Const   VOS__PM32   =   &H3  
  Const   VOS__WINDOWS32   =   &H4  
  Const   VOS_DOS_WINDOWS16   =   &H10001  
  Const   VOS_DOS_WINDOWS32   =   &H10004  
  Const   VOS_OS216_PM16   =   &H20002  
  Const   VOS_OS232_PM32   =   &H30003  
  Const   VOS_NT_WINDOWS32   =   &H40004  
  Const   VFT_UNKNOWN   =   &H0  
  Const   VFT_APP   =   &H1  
  Const   VFT_DLL   =   &H2  
  Const   VFT_DRV   =   &H3  
  Const   VFT_FONT   =   &H4  
  Const   VFT_VXD   =   &H5  
  Const   VFT_STATIC_LIB   =   &H7  
  Const   VFT2_UNKNOWN   =   &H0  
  Const   VFT2_DRV_PRINTER   =   &H1  
  Const   VFT2_DRV_KEYBOARD   =   &H2  
  Const   VFT2_DRV_LANGUAGE   =   &H3  
  Const   VFT2_DRV_DISPLAY   =   &H4  
  Const   VFT2_DRV_MOUSE   =   &H5  
  Const   VFT2_DRV_NETWORK   =   &H6  
  Const   VFT2_DRV_SYSTEM   =   &H7  
  Const   VFT2_DRV_INSTALLABLE   =   &H8  
  Const   VFT2_DRV_SOUND   =   &H9  
  Const   VFT2_DRV_COMM   =   &HA  
  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   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)  
  Dim   Filename   As   String,   Directory   As   String,   FullFileName   As   String  
  Dim   StrucVer   As   String,   FileVer   As   String,   ProdVer   As   String  
  Dim   FileFlags   As   String,   FileOS   As   String,   FileType   As   String,   FileSubType   As   String  
  Private   Sub   DisplayVerInfo()  
        Dim   rc   As   Long,   lDummy   As   Long,   sBuffer()   As   Byte  
        Dim   lBufferLen   As   Long,   lVerPointer   As   Long,   udtVerBuffer   As   VS_FIXEDFILEINFO  
        Dim   lVerbufferLen   As   Long  
        '***   Get   size   ****  
        lBufferLen   =   GetFileVersionInfoSize(FullFileName,   lDummy)  
        If   lBufferLen   <   1   Then  
              MsgBox   "No   Version   Info   available!"  
              Exit   Sub  
        End   If  
        '****   Store   info   to   udtVerBuffer   struct   ****  
        ReDim   sBuffer(lBufferLen)  
        rc   =   GetFileVersionInfo(FullFileName,   0&,   lBufferLen,   sBuffer(0))  
        rc   =   VerQueryValue(sBuffer(0),   "/",   lVerPointer,   lVerbufferLen)  
        MoveMemory   udtVerBuffer,   lVerPointer,   Len(udtVerBuffer)  
        '****   Determine   Structure   Version   number   -   NOT   USED   ****  
        StrucVer   =   Format$(udtVerBuffer.dwStrucVersionh)   &   "."   &   Format$(udtVerBuffer.dwStrucVersionl)  
        '****   Determine   File   Version   number   ****  
        FileVer   =   Format$(udtVerBuffer.dwFileVersionMSh)   &   "."   &   Format$(udtVerBuffer.dwFileVersionMSl)   &   "."   &   Format$(udtVerBuffer.dwFileVersionLSh)   &   "."   &   Format$(udtVerBuffer.dwFileVersionLSl)  
        '****   Determine   Product   Version   number   ****  
        ProdVer   =   Format$(udtVerBuffer.dwProductVersionMSh)   &   "."   &   Format$(udtVerBuffer.dwProductVersionMSl)   &   "."   &   Format$(udtVerBuffer.dwProductVersionLSh)   &   "."   &   Format$(udtVerBuffer.dwProductVersionLSl)  
        '****   Determine   Boolean   attributes   of   File   ****  
        FileFlags   =   ""  
        If   udtVerBuffer.dwFileFlags   And   VS_FF_DEBUG   Then   FileFlags   =   "Debug   "  
        If   udtVerBuffer.dwFileFlags   And   VS_FF_PRERELEASE   Then   FileFlags   =   FileFlags   &   "PreRel   "  
        If   udtVerBuffer.dwFileFlags   And   VS_FF_PATCHED   Then   FileFlags   =   FileFlags   &   "Patched   "  
        If   udtVerBuffer.dwFileFlags   And   VS_FF_PRIVATEBUILD   Then   FileFlags   =   FileFlags   &   "Private   "  
        If   udtVerBuffer.dwFileFlags   And   VS_FF_INFOINFERRE   Then   FileFlags   =   FileFlags   &   "Info   "  
        If   udtVerBuffer.dwFileFlags   And   VS_FF_SPECIALBUILD   Then   FileFlags   =   FileFlags   &   "Special   "  
        If   udtVerBuffer.dwFileFlags   And   VFT2_UNKNOWN   Then   FileFlags   =   FileFlags   +   "Unknown   "  
        '****   Determine   OS   for   which   file   was   designed   ****  
        Select   Case   udtVerBuffer.dwFileOS  
              Case   VOS_DOS_WINDOWS16  
                  FileOS   =   "DOS-Win16"  
              Case   VOS_DOS_WINDOWS32  
                  FileOS   =   "DOS-Win32"  
              Case   VOS_OS216_PM16  
                  FileOS   =   "OS/2-16   PM-16"  
              Case   VOS_OS232_PM32  
                  FileOS   =   "OS/2-16   PM-32"  
              Case   VOS_NT_WINDOWS32  
                  FileOS   =   "NT-Win32"  
              Case   other  
                  FileOS   =   "Unknown"  
        End   Select  
        Select   Case   udtVerBuffer.dwFileType  
              Case   VFT_APP  
                    FileType   =   "App"  
              Case   VFT_DLL  
                    FileType   =   "DLL"  
              Case   VFT_DRV  
                    FileType   =   "Driver"  
                    Select   Case   udtVerBuffer.dwFileSubtype  
                          Case   VFT2_DRV_PRINTER  
                                FileSubType   =   "Printer   drv"  
                          Case   VFT2_DRV_KEYBOARD  
                                FileSubType   =   "Keyboard   drv"  
                          Case   VFT2_DRV_LANGUAGE  
                                FileSubType   =   "Language   drv"  
                          Case   VFT2_DRV_DISPLAY  
                                FileSubType   =   "Display   drv"  
                          Case   VFT2_DRV_MOUSE  
                                FileSubType   =   "Mouse   drv"  
                          Case   VFT2_DRV_NETWORK  
                                FileSubType   =   "Network   drv"  
                          Case   VFT2_DRV_SYSTEM  
                                FileSubType   =   "System   drv"  
                          Case   VFT2_DRV_INSTALLABLE  
                                FileSubType   =   "Installable"  
                          Case   VFT2_DRV_SOUND  
                                FileSubType   =   "Sound   drv"  
                          Case   VFT2_DRV_COMM  
                                FileSubType   =   "Comm   drv"  
                          Case   VFT2_UNKNOWN  
                                FileSubType   =   "Unknown"  
                    End   Select  
              Case   VFT_FONT  
                    FileType   =   "Font"  
                    Select   Case   udtVerBuffer.dwFileSubtype  
                          Case   VFT_FONT_RASTER  
                                FileSubType   =   "Raster   Font"  
                          Case   VFT_FONT_VECTOR  
                                FileSubType   =   "Vector   Font"  
                          Case   VFT_FONT_TRUETYPE  
                                FileSubType   =   "TrueType   Font"  
                    End   Select  
              Case   VFT_VXD  
                    FileType   =   "VxD"  
              Case   VFT_STATIC_LIB  
                    FileType   =   "Lib"  
              Case   Else  
                    FileType   =   "Unknown"  
        End   Select  
  End   Sub  
  Private   Sub   Form_Load()  
          'Source   ->   MS   Knowledge   Base  
          'set   the   file  
          Filename   =   "kernel32.dll"  
          Directory   =   "c:/windows/system/"  
          FullFileName   =   Directory   +   Filename  
          'set   graphics   mode   to   persistent  
          Me.AutoRedraw   =   True  
          'retrieve   the   information  
          DisplayVerInfo  
          'show   the   results  
          Me.Print   "Full   filename:   "   +   FullFileName  
          Me.Print   "File   version:   "   +   FileVer  
          Me.Print   "Product   version:   "   +   ProdVer  
          Me.Print   "File   flags:   "   +   FileFlags  
          Me.Print   "File   OS:   "   +   FileOS  
          Me.Print   "File   type:   "   +   FileType   +   IIf(FileSubType   =   "",   "",   "   ("   +   FileSubType   +   ")")  
  End   Sub