Delphi XE7Android应用启用蓝牙

本文整理自网络，侵删。

 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 实现窗体随着鼠标移动

Delphi 免杀下载者源代码

Delphi + word = 数据库 + 公文处理

Delphi搜索文件夹和文件

Delphi string转unicode

Delphi twebbrowser与嵌入youtube视频崩溃

Delphi正则表达式

Delphi 串口查询所有com口

Delphi 使用google translate实现tts

Delphi的split函数 4个版本

更多相关阅读请进入《Delphi》频道 >>