本文整理自网络,侵删。
function AndroidFirstStarBool:Boolean;var PackageInfo:JPackageInfo; currentVersion,lastVersion:Integer;begin PackageInfo:=SharedActivityContext.getPackageManager.getPackageInfo(SharedActivityContext.getPackageName, 0); currentVersion:=PackageInfo.versionCode; lastVersion:=SharedPrivatePreferences.getInt(StringToJString('VERSION_KEY'), 0); if currentVersion>lastVersion then begin //第一次启动 SharedPrivatePreferences.edit.putInt(StringToJString('VERSION_KEY'),currentVersion); Result:=True; end else begin //不是第一次启动 Result:=False; end;end;
https://blog.csdn.net/xubzhlin/article/details/46633057
相关阅读 >>
Delphi firedac 连接access mdb数据库的方法
Delphi 解决idtcpclient和idtcpserver通信中文乱码问题
Delphi 获取image.picture.data的数据
Delphi tstringlist indexof find 查找字符串
更多相关阅读请进入《Delphi》频道 >>