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 时间戳与日期互转

android实例-拍摄和分享照片、分享文本(xe8+小米2)

Delphi 模拟按键的一些误解

Delphi fileopendialog1 多选加载大量文件,不受中文文件名影响

Delphi_关于null,nil

Delphi 获取闪盘列表

Delphi idsmtp发送邮件

快速上手Delphi三十六计之输入处理篇

Delphi webservices传文件

Delphi 搭配hotkeyedit控件来解决问题

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

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