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.