本文整理自网络，侵删。
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;
相关阅读 >>
Delphi 生成xml 方法 与 Delphi txt文件操作
Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明
更多相关阅读请进入《Delphi》频道 >>
