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;
 

相关阅读 >>

Delphi 图像处理 二值化

Delphi整理二（object pascal语言）

Delphi clientdataset 与fdmemtable 创建 字段与追加记录

Delphi adoquery的post和updatebatch

Delphi 得到指定文件夹内文件名

Delphi 设置文本框中光标的位置在最后

Delphi webbrowser控件实现对ie浏览器的各种控制

Delphi xe将图标和图像添加为资源

Delphi判断按下的是回车键?

Delphi 过卡巴2009和沙盘启发杀毒的Delphi源代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi开发的app如何调用外部app