获得文件版本信息
//MMWIN:MODULECOPY
interface
implementation
procedure GetBuildInfo(var AProductName, AVer, ALegalCopyright: string);
var
VerInfoSize: DWORD;
GetInfoSizeJunk: DWORD;
VersionInfo: Pointer;
Translation: Pointer;
InfoPointer: Pointer;
VersionInfoSize: UINT;
VersionValue: string;
begin
AProductName := '默认名称';
ALegalCopyright := 'Copyright(C) xxxx有限公司。2008';
AVer := '---';
VerInfoSize := GetFileVersionInfoSize(Pchar(ParamStr(0)), GetInfoSizeJunk);
if VerInfoSize <= 0 then
Exit;
GetMem(VersionInfo, VerInfoSize);
try
GetFileVersionInfo(Pchar(ParamStr(0)), 0, VerInfoSize, VersionInfo);
//得到文件的版本资源
VerQueryValue(VersionInfo, '""VarFileInfo""Translation',
Translation, VersionInfoSize);
VersionValue := '""StringFileInfo""' +
IntToHex(LoWord(LongInt(Translation^)), 4) +
IntToHex(HiWord(LongInt(Translation^)), 4) +
'""';
VerQueryValue(VersionInfo, PChar(VersionValue + 'FileVersion'),
InfoPointer, VersionInfoSize);
AVer := string(PChar(InfoPointer));
VerQueryValue(VersionInfo, PChar(VersionValue + 'LegalCopyright'),
InfoPointer, VersionInfoSize);
ALegalCopyright := string(PChar(InfoPointer));
VerQueryValue(VersionInfo, PChar(VersionValue + 'ProductName'),
InfoPointer, VersionInfoSize);
AProductName := string(PChar(InfoPointer));
finally
FreeMem(VersionInfo, VerInfoSize);
end;
end;
end.
提取其他字段方法,方法相同。只要修改一下名字就可以了
OriginalFilename //原文件名称
CompanyName //公司名称
FileDescription //文件描述
FileVersion //文件的版本
InternalName //内部名称
LegalCopyright //合法版权
LegalTrademarks //合法商标
ProductName //产品名称
ProductVersion //产品版本
Comments //备注
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步