本文整理自网络,侵删。
//要用到的单元uses Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Net, Androidapi.Helpers;
//使用方法procedure TForm1.Button1Click(Sender: TObject);var AInte: JIntent; AUrl: Jnet_Uri;begin //打开支付宝付款页面 AUrl := StrToJURI('alipayqr://platformapi/startapp?appId=20000056'); AInte:= TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, AUrl); TAndroidHelper.Context.startActivity(AInte);
// 原来:www.delphifmx.com// 当然还包括以下支付宝界面,其它支付宝界面请自行网络查询// 10000007 支付宝扫一扫// 20000056 向商家付款// 20000168 支付宝记账// 20000778 支付宝滴滴// 60000002 支付宝蚂蚁森林// 20000116 支付宝转账界面// 10000003 支付宝手机充值
end;
相关阅读 >>
Delphi getmimetypefromfile 获取文件mime类型
Delphi datamodule1 fdconnection1数据库连接
Delphi windows 底下根据一个进程的名字杀死一个进程的代码
更多相关阅读请进入《Delphi》频道 >>