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 获取鼠标当前位置的相对坐标

Delphi 精炼的数字转换人民币大写转换代码

Delphi ansiendstext 用法之一(路径结尾自动加\)

Delphi 获取windows系统网卡mac地址

Delphi xe 制作的萤光时钟，可改作屏保

Delphi 7 编写一个ie右键菜单项目：自动保存图片

Delphi 删除字符串中指定字符

Delphi tcxgrid的tcxgriddbtableview.viewdata.rows跟records有什么区别

Delphi gettempdirectory 获取临时文件夹路径

Delphi xe android]获取屏幕的物理分辨率

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

转载请注明出处：木庄网络博客 » Delphi XE5获取Android IMEI ID