易语言取PE文件版本信息模块源码 [db:版本]

易语言取PE文件版本信息模块源码

系统结构:取PE版本信息,销毁,初始化,取缓冲区,取版本信息,取语言集,GetFileVersionInfoSize,GetFileVersionInfo,VerQueryValue,CopyMemory_Info,CopyMemory_str,wvsprintf,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 取PE版本信息
| |
| |
======wz_PE版本信息类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 销毁
| |
| |------ 初始化
| |
| |------ 取缓冲区
| |
| |------ 取版本信息
| |
| |------ 取语言集
| |
| |
======调用的Dll
| |
| |---[dll]------ GetFileVersionInfoSize
| |
| |---[dll]------ GetFileVersionInfo
| |
| |---[dll]------ VerQueryValue
| |
| |---[dll]------ CopyMemory_Info
| |
| |---[dll]------ CopyMemory_str
| |
| |---[dll]------ wvsprintf

调用的DLL命令:

.DLL命令 GetFileVersionInfoSize, 整数型, "version.dll", "GetFileVersionInfoSizeA", , 针对包含了版本资源的一个文件，判断容纳文件版本信息需要一个多大的缓冲区 容纳文件的版本资源所需的缓冲区长度。如文件不包含版本信息，则返回一个0值。会设置GetLastError
.参数 文件名, 文本型, , 包含了版本资源的一个文件的名字
.参数 句柄, 整数型, , 在这个变量中载入0值;

.DLL命令 GetFileVersionInfo, 逻辑型, "version.dll", "GetFileVersionInfoA", , 从支持版本标记的一个模块里获取文件版本信息 非零表示成功，零表示失败。会设置GetLastError
.参数 文件名, 文本型, , 欲从中载入版本信息的一个文件的名字
.参数 句柄, 整数型, , win32中未用
.参数 尺寸, 整数型, , 由lpData参数指定的字节数组或缓冲区的大小。用GetFileVersionInfoSize函数判断要求的缓冲区长度有多大
.参数 数据, 字节集, 传址, 指定一个字节缓冲区的第一个字节。该缓冲区用于装载文件的版本信息 其他请看vb的api文本查看器中的声明：Declare Function GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As , ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long;

.DLL命令 VerQueryValue, 逻辑型, "version.dll", "VerQueryValueA", , 这个函数用于从版本资源中获取信息。调用这个函数前，必须先用GetFileVersionInfo函数获取版本资源信息。这个函数会检查资源信息，并将需要的数据复制到一个缓冲区里 TRUE（非零）表示成功，如请求的信息不存在，或pBlock不属于有效版本信息，那就返回一个零
.参数 信息, 字节集
.参数 提取的信息, 文本型
.参数 缓冲区, 整数型, 传址, 指针
.参数 缓冲区尺寸, 整数型, 传址

.DLL命令 CopyMemory_Info, , "kernel32.dll", "RtlMoveMemory"
.参数 pBlock, PE版本信息, 传址
.参数 缓冲区, 整数型, , 指针
.参数 尺寸, 整数型

.DLL命令 CopyMemory_str, , "kernel32.dll", "RtlMoveMemory"
.参数 pBlock, 文本型, 传址
.参数 缓冲区, 整数型, , 指针
.参数 尺寸, 整数型

.DLL命令 wvsprintf, 整数型, "user32.dll", "wvsprintfA", , 格式化字符串
.参数 lpstr, 文本型
.参数 lpcstr, 文本型
.参数 OptionalArguments, 整数型, , 指针