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 |