Delphi中取得程序版本号
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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |