本文整理自网络，侵删。
调用文件：
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;
相关阅读 >>
Delphi 设置webbrowser 代理服务器 与 useragent
Delphi 如何将access的ole对象字段存储的bmp图象显示出来
更多相关阅读请进入《Delphi》频道 >>
