本文整理自网络,侵删。
关闭安卓程序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);SharedActivityContext.startActivity(Intent);end;
调用SetBack(TJIntent.JavaClass.ACTION_MAIN);
关闭程序引用:FMX.Platform.Android这个单元调用:MainActivity.finish;
相关阅读 >>
Delphi xe安装 tclientsocket, tserversocket控件
Delphi winapi: getnextwindow - 获取指定窗口z上或z下的窗口的句柄
Delphi readprocessmemory writeprocessmemory读写内存
更多相关阅读请进入《Delphi》频道 >>