修改文件版本号, 其实就是修改文件的资源. MSDN上没有明说如何修改文件的版本号的方法, 因为MS认为版本号应该是属于文件创建者的, 而不是如我们这样的文件所有者应该去修改的. 但资源总是资源, MS提供了如何修改资源的函数, 当然这些函数也可以修改版本号.
首先, 我们要找到文件的版本信息资源:
这个代码能让我们得到文件的版本信息资源, 得到的结果就放在mVersion中, 其实这个就是一串的二进制形的资源内存块.
第二步, 我们要找到文件的版本信息:
这一步能让我们得到mFixVersionInfo, 它是mVersion这个资源内存块中指向文件的版本信息的那一部分的指针.
第三步, 修改文件的版本信息:
这两步演示了如何修改文件的版本号, dwFileVersionMS的高位是Major Version, 低位是Minor Version, dwFileVersionLS的高位是Release Version, 低位是Build Version.
第四步, 保存修改的内容, 下面就可以参考MSDN上的UpdateResource部分的例子了, 因为都是资源嘛:
这样, 我们就修改了文件的版本号了, 可以类推出如何修改版本资源中的其它资源.
完整的代码如下
首先, 我们要找到文件的版本信息资源:
mSize :
=
GetFileVersionInfoSize(
'
FileName.exe
'
);
SetLength(mVersion, mSize);
GetFileVersionInfo( ' FileName.exe ' , mRes, mSize, mVersion);
SetLength(mVersion, mSize);
GetFileVersionInfo( ' FileName.exe ' , mRes, mSize, mVersion);
这个代码能让我们得到文件的版本信息资源, 得到的结果就放在mVersion中, 其实这个就是一串的二进制形的资源内存块.
第二步, 我们要找到文件的版本信息:
VerQueryValue(mVersion,
'
', mFixV, mLen);
mFixVersion1 : = PVSFixedFileInfo(mFixV);
mFixVersion1 : = PVSFixedFileInfo(mFixV);
这一步能让我们得到mFixVersionInfo, 它是mVersion这个资源内存块中指向文件的版本信息的那一部分的指针.
第三步, 修改文件的版本信息:
mFixVersion
^
.dwFileVersionMS :
=
$
10001
;
//
高位低位都为1
mFixVersion ^ .dwFileVersionLS : = 26 shl 16 + 26 ; // 高位低位都为26
mFixVersion ^ .dwFileVersionLS : = 26 shl 16 + 26 ; // 高位低位都为26
这两步演示了如何修改文件的版本号, dwFileVersionMS的高位是Major Version, 低位是Minor Version, dwFileVersionLS的高位是Release Version, 低位是Build Version.
第四步, 保存修改的内容, 下面就可以参考MSDN上的UpdateResource部分的例子了, 因为都是资源嘛:
mHExe :
=
BeginUpdateResource(
'
FileName.Exe
'
, False);
if VerQueryValue(mVersion, ' VarFileInfoTranslation ' , mTranslate, mLen) then begin
// 这步是因为基本都是单区域资源的, 如果是多区域的, 可以参考MSDN中的作法,
// 将mTranslate/sizeof(LANGANDCODEPAGE)来得到第一个
mLang : = PLANGANDCODEPAGE(mTranslate);
if UpdateResource(mHExe, RT_VERSION, MakeIntResource( 1 ), mLang ^ .wLanguage, mVersion, mSize) then
EndUpdateResource(mHExe, False);
FreeLibrary(mHExe);
if VerQueryValue(mVersion, ' VarFileInfoTranslation ' , mTranslate, mLen) then begin
// 这步是因为基本都是单区域资源的, 如果是多区域的, 可以参考MSDN中的作法,
// 将mTranslate/sizeof(LANGANDCODEPAGE)来得到第一个
mLang : = PLANGANDCODEPAGE(mTranslate);
if UpdateResource(mHExe, RT_VERSION, MakeIntResource( 1 ), mLang ^ .wLanguage, mVersion, mSize) then
EndUpdateResource(mHExe, False);
FreeLibrary(mHExe);
这样, 我们就修改了文件的版本号了, 可以类推出如何修改版本资源中的其它资源.
完整的代码如下
type
PLANGANDCODEPAGE = ^ LANGANDCODEPAGE;
LANGANDCODEPAGE = record
wLanguage: Word;
wCodePage: Word;
end;
var
mSize: Integer;
mLen, mLen1: UINT;
mTranslate, mFixV: Pointer;
mHExe, mRes: THandle;
mVersion: array of Byte;
mFixVersion: VS_FIXEDFILEINFO;
mFixVersion1: PVSFixedFileInfo;
mLang: PLANGANDCODEPAGE;
begin
mSize : = GetFileVersionInfoSize( ' FileName.exe ' , mRes);
SetLength(mVersion, mSize);
GetFileVersionInfo( ' FileName.exe ' , mRes, mSize, mVersion);
VerQueryValue(mVersion, ' ', mFixV, mLen);
mFixVersion1 : = PVSFixedFileInfo(mFixV);
mFixVersion1 ^ .dwFileVersionMS : = $ 10001 ;
mFixVersion1 ^ .dwFileVersionLS : = 26 shl 16 + 26 ;
mHExe : = BeginUpdateResource( ' FileName.exe ' , False);
if VerQueryValue(mVersion, ' VarFileInfoTranslation ' , mTranslate, mLen) then begin
mLang : = PLANGANDCODEPAGE(mTranslate);
if UpdateResource(mHExe, RT_VERSION, MakeIntResource( 1 ), mLang ^ .wLanguage, mVersion, mSize) then
EndUpdateResource(mHExe, False);
end
FreeLibrary(mHExe);
PLANGANDCODEPAGE = ^ LANGANDCODEPAGE;
LANGANDCODEPAGE = record
wLanguage: Word;
wCodePage: Word;
end;
var
mSize: Integer;
mLen, mLen1: UINT;
mTranslate, mFixV: Pointer;
mHExe, mRes: THandle;
mVersion: array of Byte;
mFixVersion: VS_FIXEDFILEINFO;
mFixVersion1: PVSFixedFileInfo;
mLang: PLANGANDCODEPAGE;
begin
mSize : = GetFileVersionInfoSize( ' FileName.exe ' , mRes);
SetLength(mVersion, mSize);
GetFileVersionInfo( ' FileName.exe ' , mRes, mSize, mVersion);
VerQueryValue(mVersion, ' ', mFixV, mLen);
mFixVersion1 : = PVSFixedFileInfo(mFixV);
mFixVersion1 ^ .dwFileVersionMS : = $ 10001 ;
mFixVersion1 ^ .dwFileVersionLS : = 26 shl 16 + 26 ;
mHExe : = BeginUpdateResource( ' FileName.exe ' , False);
if VerQueryValue(mVersion, ' VarFileInfoTranslation ' , mTranslate, mLen) then begin
mLang : = PLANGANDCODEPAGE(mTranslate);
if UpdateResource(mHExe, RT_VERSION, MakeIntResource( 1 ), mLang ^ .wLanguage, mVersion, mSize) then
EndUpdateResource(mHExe, False);
end
FreeLibrary(mHExe);