获取安卓机器码

{$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