Delphi XE7检查Android蓝牙权限

本文整理自网络，侵删。

 uses  Androidapi.Helpers,  Androidapi.JNI.GraphicsContentViewText;
procedure TForm2.Button3Click(Sender: TObject);  function HasPermission(const Permission: string): Boolean;  begin    Result := SharedActivityContext.checkCallingOrSelfPermission(StringToJString(Permission)) = TJPackageManager.JavaClass.PERMISSION_GRANTED  end;
begin  // Bluetooth蓝牙通讯  if HasPermission('android.permission.BLUETOOTH') then    ShowMessage('有Bluetooth的通信使用权限')  else    ShowMessage('没有使用蓝牙的通信权限');
  // Bluetooth?O定?涓?  if HasPermission('android.permission.BLUETOOTH_ADMIN') then    ShowMessage('有变更蓝牙设定的权限')  else    ShowMessage('没有修改蓝牙设置的权限');end;
记得给蓝牙权限。
 

相关阅读 >>

Delphi搜索文件夹和文件

Delphi中sendmessage详细资料

Delphi一个抓屏的函数

Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己

Delphi弹出信息框大全

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

Delphi xe android下让tmemo不自动弹出键盘

Delphi dbgrid 表格自适应宽度

Delphi在64位系统下写注册表注意事项

Delphi 带参数的 exit

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