Delphi XE7でAndroidのBluetoothを有効にするように促すコード。
uses
Androidapi.JNI.Bluetooth,
Androidapi.Helpers,
Androidapi.JNI.GraphicsContentViewText;
procedure TForm2.Button4Click(Sender: TObject);
var
Intent: JIntent;
begin
Intent := TJIntent.Create;
Intent.setAction(TJBluetoothAdapter.JavaClass.ACTION_REQUEST_ENABLE);
SharedActivity.startActivity(Intent);
end;