社区
Delphi
帖子详情
怎样获取应用程序的版本号?
zcn
2000-09-12 04:11:00
在用delphi编程时,我在delphi的project|options菜单项中设置了应用程序的版本号.
然后,我又编了一个about界面,我想在about界面显示时用程序获取我开始设的版本号.这个用什么语句或方法实现?
...全文
209
3
打赏
收藏
怎样获取应用程序的版本号?
在用delphi编程时,我在delphi的project|options菜单项中设置了应用程序的版本号. 然后,我又编了一个about界面,我想在about界面显示时用程序获取我开始设的版本号.这个用什么语句或方法实现?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hhzh426
2001-07-26
打赏
举报
回复
借花献佛:
function FileVersion(FileName: String):string;
var
InfoSize, unuse: DWORD;
VerBuf: Pointer;
FI: PVSFixedFileInfo;
VerSize: DWORD;
MajorMinor,ReleaseBuild :DWORD;
begin
unuse :=0;
MajorMinor := 0;//Major,Minor 如:00010001代表1.1
ReleaseBuild := 0;//Release,Build 如00121208代表12.1208 则版本为1.1.12.1208
result :='unknown';
InfoSize := GetFileVersionInfoSize(PChar(FileName), unuse);
if InfoSize <> 0 then
begin
GetMem(VerBuf, InfoSize);
try
if GetFileVersionInfo(PChar(FileName), unuse, InfoSize, VerBuf) then
if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then
begin
MajorMinor := FI.dwFileVersionMS;
ReleaseBuild := FI.dwFileVersionLS;
end;
finally
FreeMem(VerBuf);
end;
result :=IntToStr(MajorMinor shr 16) + '.' + IntToStr(MajorMinor and $ffff) + '.' + IntToStr(ReleaseBuild shr 16) + '.' + IntToStr(ReleaseBuild and $ffff);
end;
end;
zxghl
2000-09-12
打赏
举报
回复
有API。不过我觉得麻烦。直接写上去不就得了?嘿嘿。反正那个数字是自己定的。
szdino
2000-09-12
打赏
举报
回复
我也问过这个问题...没得到回答
Android中
获取
应用程序
(包)的信息 PackageManager的使用
Android中
获取
应用程序
(包)的信息 PackageManager的使用
Android中
获取
应用程序
(包)的大小-----PackageManager的使用(二)
Android中
获取
应用程序
(包)的大小
得到操作系统的版本
得到操作系统的版本
非调试版本-C Runtime Library11.0.51106.1
为非调试版本的C运行时库(C Runtime Library),
版本号
为11.0.51106.1。 包括msvcp110.dll、msvcr110.dll、vccorlib110.dll三个文件
获得CPU序列号和CPU厂商名
如何获得CPU序列号和CPU厂商名
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章