本文整理自网络，侵删。
DELPHI安卓定位权限申请
安卓8及以后版本的权限分为静态和动态申请2部分，而之前的安卓版本只需要静态申请权限。
1）静态申请定位权限：
2）动态申请定位权限：
uses
System.Permissions,
{$IFDEF ANDROID}
Androidapi.Jni.Os,
Androidapi.Helpers,
{$ENDIF}
...
FPermissionCoarseLocation: string;
FPermissionFineLocation: string;
...
procedure TMainForm.FormCreate(Sender: TObject);
begin
{$IFDEF ANDROID}
// Note we can alternatively use literal strings:
// 'android.permission.ACCESS_COARSE_LOCATION'
// 'android.permission.ACCESS_FINE_LOCATION'
// according to the documentation:
// https://developer.android.com/reference/android/Manifest.permission#ACCESS_COARSE_LOCATION
// https://developer.android.com/reference/android/Manifest.permission#ACCESS_FINE_LOCATION
FPermissionCoarseLocation := JStringToString(TJManifest_permission.JavaClass.ACCESS_COARSE_LOCATION);
FPermissionFineLocation := JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION);
{$ENDIF}
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
PermissionsService.RequestPermissions([FPermissionCoarseLocation, FPermissionFineLocation], LocationPermissionRequestResult);
end;
来源：https://www.cnblogs.com/hnxxcxg/p/10892015.html
相关阅读 >>
Delphi下cpu getcpuid实现（x86和x64）
Delphi android windows ios通用获取程序版本
Delphi winapi: getfocus - 获取当前拥有焦点的窗口的句柄
Delphi中使用内联变量(inline variables) 的5个理由
更多相关阅读请进入《Delphi》频道 >>
