Delphi中取得程序版本号

概述Delphi做的程序,如果想包含版本信息, 必须在Delphi的集成编辑环境的菜单“Project/Options/Version Info”里面添加版本信息。即在Version Info　选项卡中选中“Include version information in project”项，并在“Module version number”中设置Major version（主版本号）、 Minor ve

Delphi做的程序,如果想包含版本信息,必须在Delphi的集成编辑环境的菜单“Project/Options/Version Info”里面添加版本信息。即在Version Info　选项卡中选中“Include version information in project”项，并在“Module version number”中设置Major version（主版本号）、 Minor version（副版本号）、 Release（发行版本号）、 Build（内部版本号）。

　　设置好后，在程序中写入下面的函数：

function GetBuildInfo: string; //获取版本号

var

　verinfosize : DWORD;

　verinfo : pointer;

　vervaluesize : DWord;

　vervalue : pvsfixedfileinfo;

　dummy : DWord;

　v1,v2,v3,v4 : word;

begin

　verinfosize := getfiLeversioninfosize(pchar(paramstr(0)),dummy);

　if verinfosize = 0 then begin

　　dummy := getlasterror;

　　result := ‘0.0.0.0‘;

　end;

　getmem(verinfo,verinfosize);

　getfiLeversioninfo(pchar(paramstr(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;

　result := inttostr(v1) + ‘.‘ + inttostr(v2) + ‘.‘ + inttostr(v3) + ‘.‘ + inttostr(v4);

　freemem(verinfo,verinfosize);

end;

　　然后，在程序中调用函数即可。

procedure TForm1.FormCreate(Sender: TObject);

begin

　label1.Caption := ‘版本 ‘ + GetBuildInfo;

end;

总结

以上是内存溢出为你收集整理的Delphi中取得程序版本号全部内容，希望文章能够帮你解决Delphi中取得程序版本号所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。