Delphi 实现代码重启android app

本文整理自网络，侵删。

 
var
  Form1: TForm1;

implementation

uses
  System.DateUtils,
  Androidapi.JNI.GraphicsContentViewText,
  FMX.Platform.Android,
  Androidapi.Helpers,
  Androidapi.JNI.App
  ;
{$R *.fmx}

procedure ReStartApp();
var
  LPM : JPackageManager;
  LIntent_Start : JIntent;
  LPendingIntent : JPendingIntent;
  LMS : Int64;
begin
  LPM := TAndroidHelper.Context.getPackageManager();
  LIntent_Start := LPM.getLaunchIntentForPackage(
      TAndroidHelper.Context.getPackageName()
      );
  LIntent_Start.addFlags( TJIntent.JavaClass.FLAG_ACTIVITY_CLEAR_TOP );

  LPendingIntent := TJPendingIntent.JavaClass.getActivity(
      TAndroidHelper.Context,
{RequestCode},
      LIntent_Start,
      TJPendingIntent.JavaClass.FLAG_CANCEL_CURRENT
      );

// System.currentTimeMillis() is "wall clock time in UTC".
//  LMS := DateTimeToUnix( Now, False {InputIsUTC} ) * 1000; //slow
  LMS := LMS + System.DateUtils.MilliSecondOf( Now ); //Fast

  TAndroidHelper.AlarmManager.&set(
      TJAlarmManager.JavaClass.RTC,
      LMS + 500,
      LPendingIntent
      );

  TAndroidHelper.Activity.finish();

end;

https://forums.embarcadero.com/thread.jspa?threadID=252411 
进一步学习上面代码，可以参考：https://blog.csdn.net/lindroid/article/details/83621590
 

相关阅读 >>

Delphi 字符串保存为 txt文件

Delphi 从字符串提取字符串

Delphi adoconnection1连接mssql数据库方法

Delphi 用idhttp得到本机外网ip

Delphi webbrowser1 设置获取编码

Delphi 实现php的urlencode编码效果

Delphi防止同时出现多个应用程序实例

Delphi md5单元文件

Delphi datasnap 获取客户端ip

Delphi下用cdo发送邮箱实例(授权码cdo发送邮箱的解决办法)

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 实现代码重启android app