如何在Delphi中调用Android蓝牙设置的原生window?

How to call the native window of Bluetooth settings on Android in Delphi?

我见过一个应用程序,其蓝牙设置调用 Android 蓝牙设置的本机 window。当用户按下 Android 后退按钮时,它会 returns 回到应用程序。这如何在 Delphi 中调用本机蓝牙设置 window?

根据:How do I open the Bluetooth Settings Activity programmatically?

uses
  Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Provider, Androidapi.Helpers;

procedure TForm1.Button1Click(Sender: TObject);
var
  LIntent: JIntent;
begin
  LIntent := TJIntent.Create;
  LIntent.setComponent(TJComponentName.JavaClass.init(StringToJString('com.android.settings'), StringToJString('com.android.settings.bluetooth.BluetoothSettings')));
  TAndroidHelper.Context.startActivity(LIntent);
end;