Android執行個體-程式切換到後台及從後台切換到前台

標籤：

 

相關資料：

http://www.delphitop.com/html/Android/2933.html

 

注意事項：

使用moveTaskToBack/moveTaskToFront需要應用程式有reorder tasks授權，如果沒有許可權，執行時程式會閃退。

 

執行個體代碼：

  1 unit Unit1;  2   3 interface  4   5 uses  6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,  8   FMX.Controls.Presentation, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo;  9  10 type 11   TForm1 = class(TForm) 12     Timer1: TTimer; 13     Button1: TButton; 14     Label1: TLabel; 15     Button2: TButton; 16     Button3: TButton; 17     Memo1: TMemo; 18     procedure Button1Click(Sender: TObject); 19     procedure Button2Click(Sender: TObject); 20     procedure Button3Click(Sender: TObject); 21     procedure Timer1Timer(Sender: TObject); 22   private 23     { Private declarations } 24   public 25     { Public declarations } 26   end; 27  28 var 29   Form1: TForm1; 30  31 implementation 32 uses 33   Androidapi.JNI.App,//需要引入 34   Androidapi.JNI.GraphicsContentViewText,//需要引入 35   Androidapi.Helpers,//需要引入 36   Androidapi.JNI.JavaTypes,//需要引入 37   Androidapi.JNIBridge;//需要引入 38  39 //使用moveTaskToBack/moveTaskToFront需要應用程式有reorder tasks授權，如果沒有許可權，執行時程式會閃退。 40  41 {$R *.fmx} 42 //方法一：隱藏程式 43 procedure No1SendAppToBack; 44 var 45   intent:JIntent; 46 begin 47   intent:= TJIntent.Create; 48   intent.setAction(TJIntent.JavaClass.ACTION_MAIN); 49   intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); 50   intent.addCategory(TJIntent.JavaClass.CATEGORY_HOME); 51   SharedActivityContext.startActivity(intent); 52 end; 53  54 //方法二:獲得Active Manager 55 function SharedActivityManager: JActivityManager; 56 var 57   AService: JObject; 58 begin 59   AService := SharedActivityContext.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE); 60   Result := TJActivityManager.Wrap((AService as ILocalObject).GetObjectID); 61 end; 62  63 //方法二：隱藏程式 64 procedure No2SendAppToBack; 65 begin 66   //網上說XE7是支援的，但是我用XE8不知道為什麼不行。 67 //  SharedActivityManager.moveTaskToBack(SharedActivity.getTaskId,TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); 68 end; 69  70 //方法二：顯示程式 71 procedure No2SendAppToFront; 72 begin 73   SharedActivityManager.moveTaskToFront(SharedActivity.getTaskId,TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); 74 end; 75  76 //隱藏程式並在5秒後再顯示 77 procedure TForm1.Button1Click(Sender: TObject); 78 begin 79   //隱藏程式 80   No1SendAppToBack; 81   //開啟定時器，顯示程式(5秒後顯示) 82   Timer1.Enabled := True; 83 end; 84  85 procedure TForm1.Button2Click(Sender: TObject); 86 begin 87   //隱藏程式 88   No2SendAppToBack; 89 end; 90  91 procedure TForm1.Button3Click(Sender: TObject); 92 begin 93   //顯示程式 94   No2SendAppToFront; 95 end; 96  97 procedure TForm1.Timer1Timer(Sender: TObject); 98 begin 99   //顯示程式100   No2SendAppToFront;101   Timer1.Enabled := False;102 end;103 104 end.

 

Android執行個體-程式切換到後台及從後台切換到前台