获得文件版本信息

//MMWIN:MODULECOPY

unit _MM_Copy_Buffer_;

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