Delphi XE Android platform uses-permission[2] 之 AndroidManifest.xml 配置AndroidManifest 文件中有四个标签与permission有关，分别：<permission> //自己定义的权限，用的相对较少。<permission-group> //声明一个标签，该标签代表了一组permissions<permission-tree> //为一组permissions声明了一个n
function AndroidFirstStarBool:Boolean;var PackageInfo:JPackageInfo; currentVersion,lastVersion:Integer;begin PackageInfo:=SharedActivityContext.getPackageManager.getPackageInfo(SharedActivityContext.getPackageName, 0); currentVersion:=PackageInfo.ver
用10.3.x编译的android app,在华为android 10上运行，当用返回键退出app或返回后台时，再重新启动（返回）app，卡死，等一会儿，会闪退，然后再重进app才正常。以前我有遇到类似情况，原因是退出app时还有正在运行的线程，那么就会产生这样的情况：你再重进app，不能正常进入app，卡死了。解决办法就是退出app时，等线程都执行完毕。今天又遇到这样的情况，但是没查到是那个线程造成这个问题，头大的过程中，在QC上查到有人遇到同样的问题了，原来不是线程的问题，而是与Android 10
用 Delphi 写的 APP 要打开诸如 MP4，PDF 等文件，可以调用安卓系统里的其它程序来打开。调用方法，我之前写过一篇：https://blog.csdn.net/pcplayer/article/details/80852385最近要播放 MP4，再次把这段代码拿来测试了一下。发现在 Delphi 10.3.1 + Android 9.0 的情况下：URI := TJnet_Uri.JavaClass.parse(StringToJString('file:///' + fN
procedure TForm1.Button1Click(Sender: TObject); var num,user,pass,temp:string; begin user:=Edit1.Text; pass:=Edit2.Text; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:=’select ID from admin where Fuser=”‘+user+”‘and Fpass=”
关闭安卓程序procedure SetBack(const AAction : JString); //后台运行。。varIntent: JIntent;beginIntent:= TJIntent.JavaClass.init(AAction);intent.addCategory(TJIntent.JavaClass.CATEGORY_HOME);Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);SharedActivityCont
procedure TForm1.FormCreate(Sender: TObject); var errno:integer; hmutex:hwnd; begin hmutex:=createmutex(nil,false,pchar(application.Title)); errno:=getlasterror; if errno=error_already_exists then begin ShowMessage(‘程序已经在运行了’); Application.Term
此种方法计算月份差不准，比如2017-2-1 到 2016-10-2 ，还是用StrToInt() 转化月为整形后再相减计算use DateUtils;Edit1.Text:=intToStr(MonthsBetween(StrToDateTime('2012-10-2'),StrToDateTime('2012-5-1')));Edit1.Text:=intToStr(MonthsBetween(DateTimePicker2.Date,DateTimePicker1.