社区
Delphi
帖子详情
怎样获取应用程序的版本号?
zcn
2000-09-12 04:11:00
在用delphi编程时,我在delphi的project|options菜单项中设置了应用程序的版本号.
然后,我又编了一个about界面,我想在about界面显示时用程序获取我开始设的版本号.这个用什么语句或方法实现?
...全文
183
3
打赏
收藏
怎样获取应用程序的版本号?
在用delphi编程时,我在delphi的project|options菜单项中设置了应用程序的版本号. 然后,我又编了一个about界面,我想在about界面显示时用程序获取我开始设的版本号.这个用什么语句或方法实现?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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如何
获取
当前应用
版本号
?
一下代码可以
获取
当前应用的
版本号
,如果有需求的话是可以通过比较我们当前的系统
版本号
和服务器返回的系统
版本号
,从而判断是否需要进行升级,所以,这个需求还是很常见的,具体代码如下所示: /** *
获取
版本号
*/ public static int getAppVersionCode(Context context) { int versionCode = 0; try {
uniapp
获取
app应用
版本号
uniapp
获取
app应用
版本号
uniapp
获取
app
版本号
、h5
版本号
、微信小程序
版本号
的方法
uniapp
获取
app
版本号
、h5
版本号
、微信小程序
版本号
的方法
c#
获取
程序
版本号
c#
获取
程序
版本号
c#
获取
程序
版本号
Properties-AssemblyInfo.cs里面改 或者项目-右键-属性-
应用程序
-程序集信息 Content.Text = "程序集版本:" + System.Reflection.Assembly.GetExecutingAssembly().GetName().Version.ToString() +"\n"; Content.Text += "文件版本:" + Application.ProductVersion.ToString() +"\
如何
获取
应用程序
的
版本号
和版本名
实现
获取
应用程序
的
版本号
和坂本名,通过
获取
包管理器开始;步骤如下: 程序如下public class MainActivity extends AppCompatActivity { Context mContext; private TextView mMVersionCode;//版本code private TextView mMVersionName;//版本名 ...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章