var
PermissionsService := TPermissionsService.DefaultService;
//异步方法,需要等待权限的处理在TRequestPermissionsResultEvent内处理
PermissionsService.RequestPermissions(const APermissions: TArray<string>;
const AOnRequestPermissionsResult: TRequestPermissionsResultEvent; AOnDisplayRationale: TDisplayRationaleEvent = nil );
PermissionsService.RequestPermissions
([''],
procedure(const APermissions: TArray<string>;
const AGrantResults: TArray<TPermissionStatus>)
begin
//验证获取权限
if (AGrantResults[0] = TPermissionStatus.Granted) then
begin
end;
end);
permissions
最新推荐文章于 2022-02-23 20:49:55 发布