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下获取ie的useragent的方法

Delphi gdi+ 实现简单画图

Delphi一个非常完整的取windows os 版本信息的函数

Delphi关于dbgrid和webbrowser的焦点问题

Delphi 通过进程id获取进程名

Delphi 与 c/c++ 数据类型对照表

Delphi unigui程序部署到服务器

Delphi xe5 android 程序退出功能

Delphi 动态创建组件，单个创建、单个销毁

Delphi版pspterminateprocess驱动源码

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

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