修改文件版本号, 其实就是修改文件的资源. MSDN上没有明说如何修改文件的版本号的方法, 因为MS认为版本号应该是属于文件创建者的, 而不是如我们这样的文件所有者应该去修改的. 但资源总是资源, MS提供了如何修改资源的函数, 当然这些函数也可以修改版本号.
首先, 我们要找到文件的版本信息资源:
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);