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

[delphi]代码库

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

Delphi
67 篇文章0 订阅
订阅专栏
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;
————————————————
版权声明：本文为CSDN博主「蝈蝈(GuoGuo)」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/delphigbg/article/details/119201002