delphi 获取安卓机器码

本文整理自网络，侵删。

 
获取安卓机器码
{$IFDEF Android}
function GetAndroidID(): string;
var
  JObj: JObject;
  JTM: JTelephonyManager;
begin
  JObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
  if JObj<>nil then begin
    JTM := TJTelephonyManager.Wrap( (JObj as ILocalObject).GetObjectID );
    if JTM <> nil then begin
      Result:= JStringToString(JTM.getDeviceId);
    end;
  end;
  if Result = '' then begin
    Result:= JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver,  TJSettings_Secure.JavaClass.ANDROID_ID));
  end;
end;
{$ENDIF}

procedure TForm1.FormShow(Sender: TObject);
var
  AStr:string;
begin
  //使用之前，要动态获取权限
  AStr := JStringToString(TJManifest_permission.JavaClass.READ_PHONE_STATE);
  PermissionsService.RequestPermissions([AStr], nil, nil);
end;

http://delphifmx.com/node/31
 

相关阅读 >>

Delphi 一个拼图工具的制作思路

Delphi indy 10tidftp中的directorylisting使用

Delphi2010 关于record类型rtti反射的用途和方法

Delphi tgifimage：timage显示gif动画

winapi 字符及字符串函数(4): charupperbuff - 把缓冲区中指定数目的字符转大写

Delphi opendialog设置默认打开路径

Delphi windows api判断文件共享锁定状态

Delphi tstrings 随机打乱

Delphi 双击tmemo选择光标所在行

Delphi 字符串分割

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

转载请注明出处：木庄网络博客 » delphi 获取安卓机器码