如何获取版本号

Question

我在Version Info中设置了自动增加build次数，比如说现在是1.0.0.100。但是怎么在label中获得这个版本号呢

Answer 1

给你一个例子吧
var 
    VerInfoSize,VerValueSize,Dummy:Dword;
    VerInfo:Pointer;
    VerValue:PVSFixedFileInfo;
    sVer:String;V1,V2,V3,V4:word;
begin
 VerInfoSize:=GetFileVersionInfoSize(Pchar(ParamStr(0)),Dummy);
 GetMem(VerInfo,VerInfoSize);
 GetFileVersionInfo(PChar(ParamStr(0)),0,VerInfoSize,VerInfo);
 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;
 end;
 FreeMem(VerInfo,VerInfoSize);
 sVer:=IntToStr(V1) + '.' + IntToStr(V2)+ IntToStr(V3)+ IntToStr(V4);
 Form1.Caption:=Form1.Caption + ' - Ver:' + sVer;
end;

Answer 2

api 函数了
GetVersionInfo