如何获取文件版本信息????

[hardwind]

关于如何获取文件版本信息,在网上找了一些资料,明确了是通过三个API函数来实现:
GetFileVersionInfoSize
getfileversioninfo
VerQueryValue
但在PB中使用这三个函数一直没有成功.
不知哪位大侠有在PB中用过,请贴个例子出来.

[handycyw]

http://dev.csdn.net/develop/article/46/46414.shtm
http://dev.csdn.net/develop/article/46/46419.shtm
http://dev.csdn.net/develop/article/46/46421.shtm

[sunpower99]

up,
关注

[le123]

up,GZ

[polestarxu]

Up
收藏一下

[qxl12343]

PB生成的EXE和其他语言编译生成的EXE，在取版本时，稍有点差异

[qxl12343]

PB官方网站有相关文档

[incats]

//////////////////////////////////////////////////////////////////////
//
// Function: of_GetFileVersion
//
// Purpose: 获取程序文件的版本号,但获取PB编译出的EXE版本号是没有意义的.
//
// Scope: public
//
// Arguments: as_filename 程序文件的全路径名
//
// Returns: string 版本号
//
// Last Date: 2005/09/7
//////////////////////////////////////////////////////////////////////
long nSize
long hMem
long pBuf, pBufLen
long v1, v2, v3, v4
VS_FIXEDFILEINFO vs

nSize = GetFileVersionInfoSize(as_filename, 0)
if nSize <= 0 then return ""

hMem = LocalAlloc(0, nSize)

if GetFileVersionInfo(as_filename, 0, nSize, hMem) then

if VerQueryValue(hMem, "\", pBuf, pBufLen) then

CopyMemory(vs, pBuf, pBufLen)

v1 = IntHigh(vs.dwProductVersionMS)
v2 = IntLow(vs.dwProductVersionMS)
v3 = IntHigh(vs.dwProductVersionLS)
v4 = IntLow(vs.dwProductVersionLS)

LocalFree(hMem)

return string(v1) + "." + string(v2) + "." + string(v3) + "." + string(v4)

end if

end if

LocalFree(hMem)

return ""