delphi开发的app如何调用外部app  
官方Delphi 学习QQ群: 682628230(三千人)
频道

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;

推荐分享
图文皆来源于网络,内容仅做公益性分享,版权归原作者所有,如有侵权请告知删除!
 

Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.063310146331787 seconds