检查是否在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中怎么取出字符串中单个char

Delphi 一个整数转其二进制表示的小函数

Delphi调用百度语音识别服务

Delphi 多种方法查找窗口句柄

winapi 字符及字符串函数(3): charupper - 字符或字符串转大写

Delphi tidhttp获取软件版本信息

Delphi 设置系统静音取消系统静音

Delphi 获取其它软件的tlistbox句柄，怎么取得listbox中的数据

Delphi 读取utf-8格式的文件内容

Delphi 简单的操作memo1剪切 复制 粘贴 撤销 全选 清空

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

转载请注明出处：木庄网络博客 » 检查是否在Delphi XE7中启用或禁用了Android蓝牙