本文整理自网络,侵删。
uses Androidapi.JNI.Bluetooth;
procedure TForm2.Button2Click(Sender: TObject);var Adapter: JBluetoothAdapter;begin Adapter := TJBluetoothAdapter.JavaClass.getDefaultAdapter; if Adapter.enable then ShowMessage('Bluetooth已启用') else ShowMessage('无法启用');end;
相关阅读 >>
Delphi 使用tmemorystream保存多张图片到文件,并读取
Delphi api 函数中使用 pchar 参数的几种方法
Delphi string.split 按照任意字符串分割语句
更多相关阅读请进入《Delphi》频道 >>