// 要用到的单元

uses

Androidapi.JNI.GraphicsContentViewText,  Androidapi.Helpers;

procedure TForm1.Button1Click(Sender: TObject);

var

AIntent: JIntent;

ACode, AUrl:string;

begin

ACode:='fkx02276cbc6y0wchg5cac3';

//如：以上为我的支付宝二维码  www.delphifmx.com

AUrl:='intent://platformapi/startapp?saId=10000007'

+'&clientVersion=3.7.0.0718'

+'&qrcode=https%3A%2F%2Fqr.alipay.com%2F'+ACode+'%3F_s'

+'%3Dweb-other&_t=1472443966571#Intent'

+';scheme=alipayqr'

+';package=com.eg.android.AlipayGphone'

+';end';

AIntent:= TJIntent.JavaClass.parseUri(stringToJstring(AUrl), TJIntent.JavaClass.URI_INTENT_SCHEME);

TAndroidHelper.Context.startActivity(AIntent);

end;

//来源：http://www.delphifmx.com/node/51