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;

推荐分享