Delphi XE5获取Android IMEI ID


本文整理自网络,侵删。

 
首先要uses

uses
  FMX.Platform.Android,
  Androidapi.JNI.Telephony,
  Androidapi.JNI.Provider ,
  Androidapi.JNIBridge,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.JavaTypes,
  Androidapi.Helpers;
接著放上Button,在Click事件打上

var
  obj: JObject;
  tm: JTelephonyManager;
  IMEI: String;
begin
  obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
  if obj <> nil then
  begin
    tm := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );
    if tm <> nil then
      IMEI := JStringToString(tm.getDeviceId);
  end;
  if IMEI = '' then
      IMEI := JStringToString(TJSettings_Secure.JavaClass.getString( SharedActivity.getContentResolver, TJSettings_Secure.JavaClass.ANDROID_ID));
  
  ShowMessage('IMEI :' + #13 + IMEI);

相关阅读 >>

Delphi 数值小数点后不保留0

Delphi idhttp用法详解

Delphi 从资源文件中加载字符

Delphi 使控件支持鼠标滚轴消息

Delphi paramcount、paramstr

Delphi自有的md5函��

Delphi图片上写水印文字函数

Delphi ado 连接 excel (附excel各个版本的版本号)

Delphi 动态内存查找法

Delphi10.2.3解决的一个json问题

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...