delphi GetVersionString 获取文件版本信息

本文整理自网络，侵删。

 function GetVersionString(FileName: string): string;
var
VerInfoSize: DWORD;
VerInfo: Pointer;
VerValueSize: DWORD;
Dummy: DWORD;
VerValue: PVSFixedFileInfo;
begin
Result := '';
VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
if VerInfoSize = 0 then Exit;
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
Result := IntToStr(VerValue^.dwFileVersionMS shr 16) + '.' +
IntToStr(VerValue^.dwFileVersionMS and $FFFF) + '.' +
IntToStr(VerValue^.dwFileVersionLS shr 16) + '.' +
IntToStr(VerValue^.dwFileVersionLS and $FFFF);
FreeMem(VerInfo);
end; 

相关阅读 >>

Delphi 得到 winrar 处理解压缩文件的返回值 ？

Delphi的tservice的windows�入桌面切�q

Delphi在字符串中删除指定字符串

Delphi md5加密base64加解密

Delphi tstringlist utf8编码保存并开启bom

Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端

Delphi xe7实现获取程序是否已管理员模式运行以及运行的windows用户名

Delphi 抓图后打印这张图片,弹出打印属性框

Delphi判断文件夹（目录）是否存在，不存在就创建一个

Delphi 下载一个jpg图片保存为bmp图片

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi GetVersionString 获取文件版本信息