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 stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；

Delphi 中的颜色

Delphi:out参数和var参数的区别

Delphi fmx输出彩色文本

Delphi webservices 字节数组 base64编码

Delphi tms web core webmemo 横竖滚动条

Delphi整理四（程序控制结构）

Delphi mscomnn1 判断com口是否打开

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi 10.4 自定义托管记录

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

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