Delphi XE5 调用AndroidAPI实现短信发送

Uses Androidapi.JNI.JavaTypes, AndroidApi.JNI.TelePhony;

procedure TForm1.Button1Click(Sender: TObject);
var
SMS: JSMSManager;
begin
SMS := TJSMSManager.Create;
SMS.sendTextMessage(StringToJString('Tenno),nil,StringToJString('123'),nil,nil);
end;

说明：

1： StringToJString 字符串转换成JAVA STRING；

2：SMS无需释放！