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 利用http的post方法做个在线翻译的小工

Delphi 获取屏幕缩放比例

Delphi 限制窗体大小的最大值与最小值

Delphi dll 字符串传递例子

Delphi inputquery

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

Delphi dbgrid 表格自适应宽度

Delphi app 横屏和竖屏

Delphi copy 字符串函数

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

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