高手请进来看看，很急的一个问题（51分全额奉送）

Question

Private Sub Form_Load()
    Me.Caption = "关于 " & App.Title
    lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
    lblTitle.Caption = App.Title
End Sub
这是MS自带的关于对话框中的一段代码，不用API。Major属性
      返回或设置该工程的主要版本号。该属性在运行时是只读的。语法object.Majorobject 所在处表示对象表达式，其值是“应用于”列表中的一个对象。说明Major 属性的取值范围在 0 到 9999 之间。该属性提供运行中的应用程序的版本信息。在设计时，使用位于“工程属性”对话框中的“生成”选项卡上的“主版本”框可设置该属性。
Minor 属性
      返回或设置该工程的小版本号。该属性在运行时是只读的。语法object.Minorobject 所在处表示对象表达式，其值是“应用于”列表中的一个对象。说明Minor 属性的取值范围在 0 到 9999 之间。该属性提供运行中的应用程序的版本信息。在设计时，使用位于“工程属性”对话框中的“生成”选项卡上的“次版本”框可设置该属性。
 
Revision 属性
      返回或设置该工程的修订版本号。该属性在运行时是只读的。语法object.Revisionobject 所在处表示对象表达式，其值是“应用于”列表中的一个对象。说明Revision 属性的取值范围在 0 到 9999 之间。该属性提供运行中的应用程序的版本信息。在设计时，使用位于“工程属性”对话框中的“生成”选项卡上的“修订”框可设置该属性。

Answer 1

用程序向导生成一个程序。其中关于窗体。就有怎么调用api方法。

Answer 2

如果要通过调用api函数来实现，该怎么做呢

Answer 3

得到exe文件的属性句柄，然后查看他的信息！！不一定行！仅供参考！

Answer 4

Attribute VB_Name = "modVersion"     Private StrucVer As String
     Private FileVer As String
     Private ProdVer As String
     Private FileFlags As String
     Private FileOS As String
     Private FileType As String
     Private FileSubType As String
    
     Private Type VS_NEWINFO
        astr As String * 1024
     End Type
     Private Const cFileFullName = "文件全路径:"
     Private Const cFileVer = "文件版本:"
     Private Const cProdVer = "产品版本:"
     Private Const cFileFlags = "文件标志:"
     Private Const cFileOS = "操作系统:"
     Private Const cFileType = "文件类型:"
     Private Const cFileSubType = "文件子类型:"
     Private Const cDescription = "文件描述:"
     Private Const cProductName = "产品名称:"
     Private Const cOriginalFileName = "文件原始名:"
     Private Const cInternalFileName = "文件内部名:"
     Private Const cCompanyName = "公司名称:"
     Private Const cCopyRight = "版权所有:"
     
     Public Type tInfo
            FileFullName As String
            FileVer As String
            ProdVer As String
            FileFlags As String
            FileOS As String
            FileType As String
            FileSubType As String
            Description As String
            ProductName As String
            OriginalFileName As String
            InternalFileName As String
            CompanyName As String
            CopyRight As String
     End Type
     Private Type VS_FIXEDFILEINFO
        dwSignature As Long
        dwStrucVersionl As Integer
        dwStrucVersionh As Integer
        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 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 Const VS_FFI_SIGNATURE = &HFEEF04BD
     Private Const VS_FFI_STRUCVERSION = &H10000
     Private Const VS_FFI_FILEFLAGSMASK = &H3F&
     Private Const VS_FF_DEBUG = &H1
     Private Const VS_FF_PRERELEASE = &H2
     Private Const VS_FF_PATCHED = &H4
     Private Const VS_FF_PRIVATEBUILD = &H8
     Private Const VS_FF_INFOINFERRED = &H10
     Private Const VS_FF_SPECIALBUILD = &H20
     Private Const VOS_UNKNOWN = &H0
     Private Const VOS_DOS = &H10000
     Private Const VOS_OS216 = &H20000
     Private Const VOS_OS232 = &H30000
     Private Const VOS_NT = &H40000     Private Const VOS_BASE = &H0
     Private Const VOS_WINDOWS16 = &H1
     Private Const VOS_PM16 = &H2
     Private Const VOS_PM32 = &H3
     Private Const VOS_WINDOWS32 = &H4     Private Const VOS_DOS_WINDOWS16 = &H10001
     Private Const VOS_DOS_WINDOWS32 = &H10004
     Private Const VOS_OS216_PM16 = &H20002
     Private Const VOS_OS232_PM32 = &H30003
     Private Const VOS_NT_WINDOWS32 = &H40004
          Private Const VFT_UNKNOWN = &H0
     Private Const VFT_APP = &H1
     Private Const VFT_DLL = &H2
     Private Const VFT_DRV = &H3
     Private Const VFT_FONT = &H4
     Private Const VFT_VXD = &H5
     Private Const VFT_STATIC_LIB = &H7
     Private Const VFT2_UNKNOWN = &H0
     Private Const VFT2_DRV_PRINTER = &H1
     Private Const VFT2_DRV_KEYBOARD = &H2
     Private Const VFT2_DRV_LANGUAGE = &H3
     Private Const VFT2_DRV_DISPLAY = &H4
     Private Const VFT2_DRV_MOUSE = &H5
     Private Const VFT2_DRV_NETWORK = &H6
     Private Const VFT2_DRV_SYSTEM = &H7
     Private Const VFT2_DRV_INSTALLABLE = &H8
     Private Const VFT2_DRV_SOUND = &H9
     Private Const VFT2_DRV_COMM = &HA
Public Sub DisplayVerInfo(s_FileName As String, tResult As tInfo)
On Error Resume Next
        '*** 这个子程序获取文件的版本信息 ****
        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
        Dim aBuffer()         As Byte
        Dim lAdd              As Long
        Dim astr              As String
        Dim lTran             As Long
        '*** 获取缓冲区大小 ****
        lBufferLen = GetFileVersionInfoSize(s_FileName, lDummy)
        If lBufferLen < 1 Then
           Exit Sub
        End If        '**** 获取文件信息并且保存到udtVerBuffer结构中 ****
        ReDim sBuffer(lBufferLen)
        rc = GetFileVersionInfo(s_FileName, 0&, lBufferLen, sBuffer(0))
        rc = VerQueryValue(sBuffer(0), "\", lVerPointer, lVerbufferLen)
        MoveMemory udtVerBuffer, lVerPointer, Len(udtVerBuffer)
                
        StrucVer = Format(udtVerBuffer.dwStrucVersionh) & "." & _
           Format$(udtVerBuffer.dwStrucVersionl)        '**** 获得文件版本 ****
        FileVer = Format$(udtVerBuffer.dwFileVersionMSh) & "." & _
           Format$(udtVerBuffer.dwFileVersionMSl) & "." & _
           Format$(udtVerBuffer.dwFileVersionLSh) & "." & _
           Format$(udtVerBuffer.dwFileVersionLSl)        '**** 获取产品版本 ****
        ProdVer = Format$(udtVerBuffer.dwProductVersionMSh) & "." & _
           Format$(udtVerBuffer.dwProductVersionMSl) & "." & _
           Format$(udtVerBuffer.dwProductVersionLSh) & "." & _
           Format$(udtVerBuffer.dwProductVersionLSl)        '**** 获取文件类型 ****
        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_INFOINFERRED _
           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 "        '**** 获取文件所适应的操作系统 ****
        Select Case udtVerBuffer.dwFileOS
           Case VOS_WINDOWS32
             FileOS = "Win32位操作系统"
           Case VOS_WINDOWS16
             FileOS = "Win16位操作系统"
           Case VOS_DOS
             FileOS = "DOS操作系统"
           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 Else
             FileOS = "未知操作系统"
        End Select
        Select Case udtVerBuffer.dwFileType
           Case VFT_APP
              FileType = "应用程序"
           Case VFT_DLL
              FileType = "动态连接库"
           Case VFT_DRV
              FileType = "驱动程序"
              Select Case udtVerBuffer.dwFileSubtype
                 Case VFT2_DRV_PRINTER
                    FileSubType = "打印驱动程序"
                 Case VFT2_DRV_KEYBOARD
                    FileSubType = "键盘驱动程序"
                 Case VFT2_DRV_LANGUAGE
                    FileSubType = "语言模块"
                 Case VFT2_DRV_DISPLAY
                    FileSubType = "显示驱动程序"
                 Case VFT2_DRV_MOUSE
                    FileSubType = "鼠标驱动程序"
                 Case VFT2_DRV_NETWORK
                    FileSubType = "网络驱动程序"
                 Case VFT2_DRV_SYSTEM
                    FileSubType = "系统驱动程序"
                 Case VFT2_DRV_INSTALLABLE
                    FileSubType = "Installable"
                 Case VFT2_DRV_SOUND
                    FileSubType = "声音驱动程序"
                 Case VFT2_DRV_COMM
                    FileSubType = "串行驱动程序"
                 Case VFT2_UNKNOWN
                    FileSubType = "未知驱动程序"
              End Select
           Case VFT_FONT
              FileType = "字体"
              Select Case udtVerBuffer.dwFileSubtype
                 Case VFT_FONT_RASTER
                    FileSubType = "光栅字体"
                 Case VFT_FONT_VECTOR
                    FileSubType = "矢量字体"
                 Case VFT_FONT_TRUETYPE
                    FileSubType = "TrueType字体"
              End Select
           Case VFT_VXD
              FileType = "VxD虚拟设备驱动程序"
           Case VFT_STATIC_LIB
              FileType = "静态库文件"
           Case Else
              FileType = "未知"
        End Select
        tResult.FileFullName = cFileFullName + s_FileName
        tResult.FileVer = cFileVer + FileVer
        tResult.ProdVer = cProdVer + ProdVer
        tResult.FileFlags = cFileFlags + FileFlags
        tResult.FileOS = cFileOS + FileOS
        tResult.FileType = cFileType + FileType
        tResult.FileSubType = cFileSubType + FileSubType
        '清除上一次保存的信息
        FullFileName = ""
        FileVer = ""
        ProdVer = ""
        FileFlags = ""
        FileOS = ""
        FileType = ""
        FileSubType = ""
        ReDim aBuffer(lBufferLen)
        Dim ab As VS_NEWINFO
        lVerPointer = 0
        rc = GetFileVersionInfo(s_FileName, 0&, lBufferLen, sBuffer(0))
        rc = VerQueryValue(sBuffer(0), "\VarFileInfo\Translation", lVerPointer, lVerbufferLen)
        MoveMemory lTran, lVerPointer, 4&
        astr = "0" + Hex$(lTran)
        astr = Right$(astr, 4) + Left$(astr, 4)
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\FileDescription", lVerPointer, lVerbufferLen)
        MoveMemory ab, lVerPointer, Len(ab)
        tResult.Description = cDescription + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\ProductName", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.ProductName = cProductName + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\OriginalFilename", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.OriginalFileName = cOriginalFileName + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\InternalName", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.InternalFileName = cInternalFileName + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\CompanyName", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.CompanyName = cCompanyName + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\LegalCopyright", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.CopyRight = cCopyRight + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
End Sub

Answer 5

修正几个错误
Option Explicit
Private StrucVer As String
Private FileVer As String
Private ProdVer As String
Private FileFlags As String
Private FileOS As String
Private FileType As String
Private FileSubType As StringPrivate Type VS_NEWINFO
    astr As String * 1024
End Type
Private Const cFileFullName = "文件全路径:"
Private Const cFileVer = "文件版本:"
Private Const cProdVer = "产品版本:"
Private Const cFileFlags = "文件标志:"
Private Const cFileOS = "操作系统:"
Private Const cFileType = "文件类型:"
Private Const cFileSubType = "文件子类型:"
Private Const cDescription = "文件描述:"
Private Const cProductName = "产品名称:"
Private Const cOriginalFileName = "文件原始名:"
Private Const cInternalFileName = "文件内部名:"
Private Const cCompanyName = "公司名称:"
Private Const cCopyRight = "版权所有:"Public Type tInfo
    FileFullName As String
    FileVer As String
    ProdVer As String
    FileFlags As String
    FileOS As String
    FileType As String
    FileSubType As String
    Description As String
    ProductName As String
    OriginalFileName As String
    InternalFileName As String
    CompanyName As String
    CopyRight As String
End Type
Private Type VS_FIXEDFILEINFO
    dwSignature As Long
    dwStrucVersionl As Integer
    dwStrucVersionh As Integer
    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 TypePrivate 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 Const VS_FFI_SIGNATURE = &HFEEF04BD
Private Const VS_FFI_STRUCVERSION = &H10000
Private Const VS_FFI_FILEFLAGSMASK = &H3F&
Private Const VS_FF_DEBUG = &H1
Private Const VS_FF_PRERELEASE = &H2
Private Const VS_FF_PATCHED = &H4
Private Const VS_FF_PRIVATEBUILD = &H8
Private Const VS_FF_INFOINFERRED = &H10
Private Const VS_FF_SPECIALBUILD = &H20
Private Const VOS_UNKNOWN = &H0
Private Const VOS_DOS = &H10000
Private Const VOS_OS216 = &H20000
Private Const VOS_OS232 = &H30000
Private Const VOS_NT = &H40000Private Const VOS_BASE = &H0
Private Const VOS_WINDOWS16 = &H1
Private Const VOS_PM16 = &H2
Private Const VOS_PM32 = &H3
Private Const VOS_WINDOWS32 = &H4Private Const VOS_DOS_WINDOWS16 = &H10001
Private Const VOS_DOS_WINDOWS32 = &H10004
Private Const VOS_OS216_PM16 = &H20002
Private Const VOS_OS232_PM32 = &H30003
Private Const VOS_NT_WINDOWS32 = &H40004
Private Const VFT_UNKNOWN = &H0
Private Const VFT_APP = &H1
Private Const VFT_DLL = &H2
Private Const VFT_DRV = &H3
Private Const VFT_FONT = &H4
Private Const VFT_VXD = &H5
Private Const VFT_STATIC_LIB = &H7
Private Const VFT2_UNKNOWN = &H0
Private Const VFT2_DRV_PRINTER = &H1
Private Const VFT2_DRV_KEYBOARD = &H2
Private Const VFT2_DRV_LANGUAGE = &H3
Private Const VFT2_DRV_DISPLAY = &H4
Private Const VFT2_DRV_MOUSE = &H5
Private Const VFT2_DRV_NETWORK = &H6
Private Const VFT2_DRV_SYSTEM = &H7
Private Const VFT2_DRV_INSTALLABLE = &H8
Private Const VFT2_DRV_SOUND = &H9
Private Const VFT2_DRV_COMM = &HAPrivate Const VFT2_FONT_RASTER = &H1
Private Const VFT2_FONT_VECTOR = &H2
Private Const VFT2_FONT_TRUETYPE = &H3Public Sub DisplayVerInfo(s_FileName As String, tResult As tInfo)
On Error Resume Next
        '*** 这个子程序获取文件的版本信息 ****
        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
        Dim aBuffer()        As Byte
        Dim lAdd              As Long
        Dim astr              As String
        Dim lTran            As Long
        '*** 获取缓冲区大小 ****
        lBufferLen = GetFileVersionInfoSize(s_FileName, lDummy)
        If lBufferLen < 1 Then
          Exit Sub
        End If        '**** 获取文件信息并且保存到udtVerBuffer结构中 ****
        ReDim sBuffer(lBufferLen)
        rc = GetFileVersionInfo(s_FileName, 0&, lBufferLen, sBuffer(0))
        rc = VerQueryValue(sBuffer(0), "\", lVerPointer, lVerbufferLen)
        MoveMemory udtVerBuffer, lVerPointer, Len(udtVerBuffer)
                
        StrucVer = Format(udtVerBuffer.dwStrucVersionh) & "." & _
          Format$(udtVerBuffer.dwStrucVersionl)        '**** 获得文件版本 ****
        FileVer = Format$(udtVerBuffer.dwFileVersionMSh) & "." & _
          Format$(udtVerBuffer.dwFileVersionMSl) & "." & _
          Format$(udtVerBuffer.dwFileVersionLSh) & "." & _
          Format$(udtVerBuffer.dwFileVersionLSl)        '**** 获取产品版本 ****
        ProdVer = Format$(udtVerBuffer.dwProductVersionMSh) & "." & _
          Format$(udtVerBuffer.dwProductVersionMSl) & "." & _
          Format$(udtVerBuffer.dwProductVersionLSh) & "." & _
          Format$(udtVerBuffer.dwProductVersionLSl)        '**** 获取文件类型 ****
        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_INFOINFERRED _
          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 "        '**** 获取文件所适应的操作系统 ****
        Select Case udtVerBuffer.dwFileOS
          Case VOS_WINDOWS32
            FileOS = "Win32位操作系统"
          Case VOS_WINDOWS16
            FileOS = "Win16位操作系统"
          Case VOS_DOS
            FileOS = "DOS操作系统"
          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 Else
            FileOS = "未知操作系统"
        End Select
        Select Case udtVerBuffer.dwFileType
          Case VFT_APP
              FileType = "应用程序"
          Case VFT_DLL
              FileType = "动态连接库"
          Case VFT_DRV
              FileType = "驱动程序"
              Select Case udtVerBuffer.dwFileSubtype
                Case VFT2_DRV_PRINTER
                    FileSubType = "打印驱动程序"
                Case VFT2_DRV_KEYBOARD
                    FileSubType = "键盘驱动程序"
                Case VFT2_DRV_LANGUAGE
                    FileSubType = "语言模块"
                Case VFT2_DRV_DISPLAY
                    FileSubType = "显示驱动程序"
                Case VFT2_DRV_MOUSE
                    FileSubType = "鼠标驱动程序"
                Case VFT2_DRV_NETWORK
                    FileSubType = "网络驱动程序"
                Case VFT2_DRV_SYSTEM
                    FileSubType = "系统驱动程序"
                Case VFT2_DRV_INSTALLABLE
                    FileSubType = "Installable"
                Case VFT2_DRV_SOUND
                    FileSubType = "声音驱动程序"
                Case VFT2_DRV_COMM
                    FileSubType = "串行驱动程序"
                Case VFT2_UNKNOWN
                    FileSubType = "未知驱动程序"
              End Select
          Case VFT_FONT
              FileType = "字体"
              Select Case udtVerBuffer.dwFileSubtype
                Case VFT2_FONT_RASTER
                    FileSubType = "光栅字体"
                Case VFT2_FONT_VECTOR
                    FileSubType = "矢量字体"
                Case VFT2_FONT_TRUETYPE
                    FileSubType = "TrueType字体"
              End Select
          Case VFT_VXD
              FileType = "VxD虚拟设备驱动程序"
          Case VFT_STATIC_LIB
              FileType = "静态库文件"
          Case Else
              FileType = "未知"
        End Select
        tResult.FileFullName = cFileFullName + s_FileName
        tResult.FileVer = cFileVer + FileVer
        tResult.ProdVer = cProdVer + ProdVer
        tResult.FileFlags = cFileFlags + FileFlags
        tResult.FileOS = cFileOS + FileOS
        tResult.FileType = cFileType + FileType
        tResult.FileSubType = cFileSubType + FileSubType
        '清除上一次保存的信息
        FileVer = ""
        ProdVer = ""
        FileFlags = ""
        FileOS = ""
        FileType = ""
        FileSubType = ""
        ReDim aBuffer(lBufferLen)
        Dim ab As VS_NEWINFO
        lVerPointer = 0
        rc = GetFileVersionInfo(s_FileName, 0&, lBufferLen, sBuffer(0))
        rc = VerQueryValue(sBuffer(0), "\VarFileInfo\Translation", lVerPointer, lVerbufferLen)
        MoveMemory lTran, lVerPointer, 4&
        astr = "0" + Hex$(lTran)
        astr = Right$(astr, 4) + Left$(astr, 4)
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\FileDescription", lVerPointer, lVerbufferLen)
        MoveMemory ab, lVerPointer, Len(ab)
        tResult.Description = cDescription + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\ProductName", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.ProductName = cProductName + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\OriginalFilename", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.OriginalFileName = cOriginalFileName + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\InternalName", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.InternalFileName = cInternalFileName + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\CompanyName", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.CompanyName = cCompanyName + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
        rc = VerQueryValue(sBuffer(0), "\StringFileInfo\" + astr + "\LegalCopyright", lVerPointer, lVerbufferLen)
        If rc Then
            MoveMemory ab, lVerPointer, Len(ab)
            tResult.CopyRight = cCopyRight + Left$(ab.astr, (InStr(ab.astr, Chr$(0)) - 1))
        End If
End Sub