Delphi中取得程序版本号
来源:互联网 发布:淘宝客服电话人工按几 编辑:程序博客网 时间:2024/06/13 00:15
http://blog.163.com/sfjksal@126/blog/static/1228747892009734260580/
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)),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中取得程序版本号
- Delphi中取得程序版本号
- 如何取得程序本身版本号
- Delphi 获得程序的版本号
- Delphi获取其他exe程序版本号
- delphi版本号
- Delphi 版本号
- delphi中取得硬盘的卷标
- 【Delphi】 Delphi版本号对照
- [Delphi] Delphi版本号对照
- iOS 取得系统版本号
- 取得运行中程序列表
- MFC中取得程序目录
- delphi中拖放程序
- 程序中关于Windows系统版本号判断
- VC2010 MFC程序中自动加入版本号
- android 中获取当前程序的版本号
- 如何在同一台电脑上启动多个SDE的服务
- def
- xcode4: Linker error: Directory not found for option
- 设计模式6大原则:开闭原则
- 服务器莫名多次连不上,竟然是待机了。。。电源管理设置一下就ok了。。。
- Delphi中取得程序版本号
- 日志写入文件,写入sqlserver数据库(自定义参数)
- Java基础之continue与break区别
- 外来乱码控件的注册
- usaco 5.1 Fencing the Cows(凸包模板题)
- Linux中的SSH终端乱码问题的解决
- des
- 大端小端学习
- StarCraft开发:如何避免链表引起的游戏崩溃