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

结果：

1.因为只有小米手机，没有三星手机，没法测试。如果哪位神测试过的话，记得M我哦，谢了。

实例代码： 

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
   FMX.Controls.Presentation;

 type
   TForm1 = class(TForm)
     Label1: TLabel;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation
 uses
   //Androidapi.JNI.JavaTypes, 网上的大神说引入，但我没看到哪里要用
   //FMX.Platform.Android,
   //AndroidApi.Jni.App,
   AndroidAPI.jni.OS,//需要引入
   Androidapi.JNI.GraphicsContentViewText,//需要引入
   AndroidApi.JniBridge,//需要引入
   Androidapi.Helpers;//需要引入
 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 procedure TForm1.Button1Click(Sender: TObject);
 {$IFDEF ANDROID}
 var
   ShortcutIntent: JIntent;
   addIntent: JIntent;
   wIconIdentifier: integer;
   wIconResource: JIntent_ShortcutIconResource;
 {$ENDIF}
 begin
   {$IFDEF ANDROID}
   ShortcutIntent := TJIntent.JavaClass.init(SharedActivityContext, SharedActivityContext.getClass);
   ShortcutIntent.setAction(TJIntent.JavaClass.ACTION_MAIN);

   addIntent := TJIntent.Create;
   addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_INTENT, TJParcelable.Wrap((shortcutIntent as ILocalObject).GetObjectID));
   addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_NAME, StringToJString(Application.Title));
   addIntent.setAction(StringToJString('com.android.launcher.action.INSTALL_SHORTCUT'));

   // get icon resource identifier //请将下划线红色部分改为你的项目名称即可，其它不用修改。
   wIconIdentifier := SharedActivity.getResources.getIdentifier(StringToJString('ic_launcher'), StringToJString('drawable'), StringToJString('com.embarcadero.Project1'));
   wIconResource := TJIntent_ShortcutIconResource.JavaClass.fromContext(SharedActivityContext, wIconIdentifier);
   // set icon for shortcut
   addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_ICON_RESOURCE, TJParcelable.Wrap((wIconResource as ILocalObject).GetObjectID));

   SharedActivityContext.sendBroadcast(addIntent);
   {$ENDIF}
 end;

 end.