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 获取本地ip地址源码

Delphi goto 语句的使用

Delphi unicode转中文编码

Delphi android应用程序中的java ui线程中执行处理

Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>

Delphi chromium post

Delphi listview 导出excel txt vcf 单元

Delphi中获取光标句柄代码（包含获取当前线程id）

Delphi 建立快捷方式

用Delphi实现百度地图经纬度与地址互转

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

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