本文整理自网络,侵删。
获取安卓机器码{$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 fdconnection取得excel工作表名
Delphi 中 findwindow 和 findwindowex 的语法和用法
更多相关阅读请进入《Delphi》频道 >>