Delphi开发的app如何调用外部app

uses

  Androidapi.JNI.JavaTypes,//JString使用

  Androidapi.JNI.GraphicsContentViewText,//JIntent使用

  FMX.Surfaces,//TBitmapSurface使用

  Androidapi.Helpers,//SharedActivity使用

  System.IOUtils,//TPath使用

  Androidapi.JNIBridge,//ILocalObject使用

//打开APP方法

procedure TForm1.OpenApp(PackageName, AppName: JString);

var

  Intent : JIntent;

  NativeComponent : JComponentName;

begin

  Intent := TJIntent.Create;

  Intent.setAction(TJIntent.JavaClass.ACTION_MAIN);

  Intent.addCategory(TJIntent.JavaClass.CATEGORY_LAUNCHER);

  NativeComponent := TJComponentName.JavaClass.init(PackageName, AppName);

  Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK or TJIntent.JavaClass.FLAG_ACTIVITY_RESET_TASK_IF_NEEDED);

  Intent.setComponent(NativeComponent);

  SharedActivity.startActivity(Intent);

end;//调用

打开APP

procedure TForm1.Button1Click(Sender: TObject);

 begin

OpenApp(StringToJString('com.androidillusion.videocamillusionpro'),

StringToJString('com.androidillusion.videocamillusionpro.VideoillusionActivity'));

end;