检查是否在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 shutdown() 关机

Delphi中设置系统时间方法

Delphi将字符串转换成utf8编码的函数

Delphi 简单判断程序30秒没有键盘和鼠标动作

Delphi设置dbgrid每列自动居中

Delphi strutils.dupestring - 反复字符串

Delphi获取java时间戳

Delphi xe 版本 示例原码下载

Delphi txt日志log

进程防杀Delphi版(dll部分)

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...