检查是否在Delphi XE7中启用或禁用了Android蓝牙

本文整理自网络，侵删。

 uses  Androidapi.JNI.Bluetooth;
procedure TForm2.Button1Click(Sender: TObject);var  Adapter: JBluetoothAdapter;begin  Adapter := TJBluetoothAdapter.JavaClass.getDefaultAdapter;  if Adapter.isEnabled then    ShowMessage('Bluetooth有效。')  else    ShowMessage('Bluetooth无效。');end; 

相关阅读 >>

Delphi 新建一个txt文档函数

Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

Delphi 检查自己的进程的父进程

Delphi 文字的高度与宽度: canvas.textextent

Delphi 坐标截图如何实现

Delphi 随机指定范围的字符串函数

Delphi copy 从字符串中复制指定范围中的字符

Delphi求解一元二次方程

Delphi实现文件的拖放功能

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