易语言API取文件版本源码

系统结构:GetFileVersionInfo,GetFileVersionInfoSize,VerQueryValue,DecToHex,GetFileVersionInfoSize,GetFileVersionInfo,VerQueryValue,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _GetVerInfo
           |  |
           |  |------ _Dec2Hex
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetFileVersionInfo
           |  |
           |  |---[dll]------   GetFileVersionInfoSize
           |  |
           |  |---[dll]------   VerQueryValue
  ======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ DecToHex
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetFileVersionInfoSize
           |  |
           |  |---[dll]------   GetFileVersionInfo
           |  |
           |  |---[dll]------   VerQueryValue

调用的DLL命令:

.DLL命令 GetFileVersionInfo, 整数型, "version.dll", "GetFileVersionInfoA"
    .参数 szFilename, 文本型
    .参数 dwHandle, 整数型
    .参数 dwLen, 整数型
    .参数 lpData, 字节集

.DLL命令 GetFileVersionInfoSize, 整数型, "version.dll", "GetFileVersionInfoSizeA"
    .参数 szFilename, 文本型
    .参数 lpdwHandle, 整数型

.DLL命令 VerQueryValue, 整数型, "version.dll", "VerQueryValueA"
    .参数 pBlock, 字节集
    .参数 szSubBlock, 文本型
    .参数 lplpBuffer, 整数型, 传址
    .参数 puLen, 整数型, 传址

调用的DLL命令:

.DLL命令 GetFileVersionInfoSize, 整数型, "version.dll", "GetFileVersionInfoSizeA"
    .参数 szFilename, 文本型, , 文件路径
    .参数 lpdwHandle, 整数型, , 设定指定变量为0

.DLL命令 GetFileVersionInfo, 整数型, "version.dll", "GetFileVersionInfoA"
    .参数 szFilename, 文本型, , 文件路径
    .参数 dwHandle, 整数型, , 设定指定变量为0
    .参数 dwLen, 整数型, , 版本信息长度 , GetFileVersionInfoSize 返回值
    .参数 lpData, 字节集, , 存放文件版本信息的指针

.DLL命令 VerQueryValue, 整数型, "version.dll", "VerQueryValueA"
    .参数 pBlock, 字节集, , GetFileVersionInfo 的版本信息指针
    .参数 szSubBlock, 文本型, , 要获取文件的信息识别符
    .参数 lplpBuffer, 整数型, 传址, 版本信息指针位置
    .参数 puLen, 整数型, 传址, 版本数据长度 , GetFileVersionInfoSize 返回值