Delphi 获取自身软件的版本号

本文整理自网络，侵删。

 
//获取软件的版本号（该软件须在设计时在菜单Project的options里设置version info了才可获得，否则为空）
procedure TForm1.GetBuildInfo(FileName:string; var vs:string);
var VerInfoSize,VerValueSize,Dummy:DWORD;
    VerInfo: Pointer;
    VerValue: PVSFixedFileInfo;
    V1,V2,V3,V4:Word;
begin
  vs:='';
  if not FileExists(FileName) then exit;
  VerInfoSize:=GetFileVersionInfoSize(PChar(FileName),Dummy);
  if VerInfoSize=0 then exit;
  GetMem(VerInfo,VerInfoSize);
  if not GetFileVersionInfo(PChar(FileName),0,VerInfoSize,VerInfo) then exit;
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    V1:=dwFileVersionMS shr 16;
    V2:=dwFileVersionMS and $FFFF;
    V3:=dwFileVersionLS shr 16;
    V4:=dwFileVersionLS and $FFFF;
    vs:=inttostr(v1)+'.'+inttostr(v2)+'.'+inttostr(v3)+'.'+inttostr(v4);
  end;
  FreeMem(VerInfo,VerInfoSize);
end;
 

相关阅读 >>

Delphi写文本文件

Delphi 动态库里查询是否联接数据库

Delphi启动/停止windows服务,启动类型修改为"自动"

判断url的有效性

解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi tzipfile 用法

Delphi颜色转换函数

Delphi 执行dos命令并捕获输出

Delphi 获取系统的硬盘分区及使用信息

Delphi 取得开机时间 开机时间总长度（可精确到秒，分钟等）

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

转载请注明出处：木庄网络博客 » Delphi 获取自身软件的版本号