Delphi XE5读取Android IMEI ID

本文整理自网络，侵删。

 首先要uses

uses
  FMX.Platform.Android,
  Androidapi.JNI.Telephony,
  Androidapi.JNI.Provider ,
  Androidapi.JNIBridge,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.JavaTypes,
  FMX.Helpers.Android;
接著放上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 最全_日期格式_dateutils时间单元说明

Delphi通过url获取网页源码

Delphi xe firemonkey的几个特色属性

Delphi 使richedit中的链接可以点击

wmi远程访问问题解决方法

Delphi查找同一内网所有主机

tmsweb core 组件居中显示

Delphi windows 编程[17] - 更换菜单: loadmenu、destroymenu、setmenu

Delphi 2009 之 tstringbuilder 类[6]: equals

Delphi里如何限制form的大小

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

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