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

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

系统结构:无符号右移,取文件版本,交换_整数_文件信息,GetFileVersionInfoSize,GetFileVersionInfo,HeapAlloc,GetProcessHeap,HeapFree,VerQueryValue,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 无符号右移
| |
| |------ 取文件版本
| |
| |------ 交换_整数_文件信息
| |
| |
======调用的Dll
| |
| |---[dll]------ GetFileVersionInfoSize
| |
| |---[dll]------ GetFileVersionInfo
| |
| |---[dll]------ HeapAlloc
| |
| |---[dll]------ GetProcessHeap
| |
| |---[dll]------ HeapFree
| |
| |---[dll]------ VerQueryValue

调用的DLL命令:

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

.DLL命令 GetFileVersionInfo, 整数型, "version.dll", "GetFileVersionInfoA", , 从支持版本标记的一个模块里获取文件版本信息 非零表示成功，零表示失败。会设置GetLastError
.参数 lptstrFilename, 文本型, , 欲从中载入版本信息的一个文件的名字
.参数 dwHandle, 整数型, , win32中未用
.参数 dwLen, 整数型, , 由lpData参数指定的字节数组或缓冲区的大小。用GetFileVersionInfoSize函数判断要求的缓冲区长度有多大
.参数 lpData, 整数型, , 指定一个字节缓冲区的第一个字节。该缓冲区用于装载文件的版本信息 其他请看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命令 HeapAlloc, 整数型, "kernel32.dll", "HeapAlloc", , 从堆中分配内存
.参数 hHeap, 整数型
.参数 dwFlags, 整数型
.参数 dwBytes, 整数型

.DLL命令 GetProcessHeap, 整数型, "kernel32.dll", "GetProcessHeap", , 获取调用过程堆句柄

.DLL命令 HeapFree, 整数型, "kernel32.dll", "HeapFree", , 释放从堆中分配的内存
.参数 hHeap, 整数型
.参数 dwFlags, 整数型
.参数 lpMem, 整数型

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