delphi xe6 打开andoridGPS设置

Androidapi.JNI.JavaTypes,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.Location,
Androidapi.JNIBridge,
Androidapi.JNI.Os,
Androidapi.Helpers,
Androidapi.JNI.Provider;
.............................
procedure TForm2.Button6Click(Sender: TObject);
var
Provider:string;
Settings_secure:TJSettings_Secure;
Intent:JIntent;
begin
Provider:=JStringToString(Settings_secure.JavaClass.getString(
SharedActivityContext.getContentResolver,
TJSettings_system.javaClass.LOCATION_PROVIDERS_ALLOWED));
// if pos('gps',provider)=0 then
// begin
Intent:=TJIntent.Create;
Intent.setAction(TJSettings.javaClass.ACTION_LOCATION_SOURCE_SETTINGS);
SharedActivity.startActivity(Intent);
// end;
end;