//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 //备注