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 使用tnethttprequest / tnethttpclient访问web服务器

Delphi文件是否正在使用

idhttp获取文件大小的代码

Delphi 打开资源管理器并定位到指定目录下的文件

Delphi 禁止改变窗口大小和移动窗口

Delphi exec error 错误处理

Delphi在64位系统下读写注册表

Delphi中单独编译pas生成dcu文件

Delphi读取utf8格式ini及取得动态�热�

Delphi synedit1 synmemo1 显示行号

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

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