Android实例-为程序创建快捷方式(未测试)

 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, FMX.StdCtrls,
 8   FMX.Controls.Presentation;
 9 
10 type
11   TForm1 = class(TForm)
12     Label1: TLabel;
13     Button1: TButton;
14     procedure Button1Click(Sender: TObject);
15   private
16     { Private declarations }
17   public
18     { Public declarations }
19   end;
20 
21 var
22   Form1: TForm1;
23 
24 implementation
25 uses
26   //Androidapi.JNI.JavaTypes, 网上的大神说引入，但我没看到哪里要用
27   //FMX.Platform.Android,
28   //AndroidApi.Jni.App,
29   AndroidAPI.jni.OS,//需要引入
30   Androidapi.JNI.GraphicsContentViewText,//需要引入
31   AndroidApi.JniBridge,//需要引入
32   Androidapi.Helpers;//需要引入
33 {$R *.fmx}
34 {$R *.NmXhdpiPh.fmx ANDROID}
35 
36 procedure TForm1.Button1Click(Sender: TObject);
37 {$IFDEF ANDROID}
38 var
39   ShortcutIntent: JIntent;
40   addIntent: JIntent;
41   wIconIdentifier: integer;
42   wIconResource: JIntent_ShortcutIconResource;
43 {$ENDIF}
44 begin
45   {$IFDEF ANDROID}
46   ShortcutIntent := TJIntent.JavaClass.init(SharedActivityContext, SharedActivityContext.getClass);
47   ShortcutIntent.setAction(TJIntent.JavaClass.ACTION_MAIN);
48 
49   addIntent := TJIntent.Create;
50   addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_INTENT, TJParcelable.Wrap((shortcutIntent as ILocalObject).GetObjectID));
51   addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_NAME, StringToJString(Application.Title));
52   addIntent.setAction(StringToJString(‘com.android.launcher.action.INSTALL_SHORTCUT‘));
53 
54   // get icon resource identifier //请将下划线红色部分改为你的项目名称即可，其它不用修改。
55   wIconIdentifier := SharedActivity.getResources.getIdentifier(StringToJString(‘ic_launcher‘), StringToJString(‘drawable‘), StringToJString(‘com.embarcadero.Project1‘));
56   wIconResource := TJIntent_ShortcutIconResource.JavaClass.fromContext(SharedActivityContext, wIconIdentifier);
57   // set icon for shortcut
58   addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_ICON_RESOURCE, TJParcelable.Wrap((wIconResource as ILocalObject).GetObjectID));
59 
60   SharedActivityContext.sendBroadcast(addIntent);
61   {$ENDIF}
62 end;
63 
64 end.