delphi for android 获取手机号

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,Androidapi.JNI.GraphicsContentViewText,

Androidapi.JNIBridge, Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes,

FMX.Helpers.Android, FMX.StdCtrls;

type

TForm1 = class(TForm)

btn1: TButton;

lbl1: TLabel;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

TelephonyManager: JTelephonyManager;

TelephonyServiceNative: JObject;

implementation

{$R *.fmx}

procedure TForm1.btn1Click(Sender: TObject);

begin

TelephonyServiceNative := SharedActivityContext.getSystemService

(TJContext.JavaClass.TELEPHONY_SERVICE);

if Assigned(TelephonyServiceNative) then

TelephonyManager := TJTelephonyManager.Wrap

((TelephonyServiceNative as ILocalObject).GetObjectID);

lbl1.Text:=JStringToString(TelephonyManager.getLine1Number);//取得手机号

end;

http://blog.csdn.net/syndicater/article/details/19325305