首页 > 代码库 > delphi xe6 打开andoridGPS设置
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;
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。