标签：android style java color os width
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 xe6 打开andoridGPS设置,码迷,mamicode.com
delphi xe6 打开andoridGPS设置
标签：android style java color os width
原文地址：http://www.cnblogs.com/qiufeng2014/p/3698907.html
