本文整理自网络,侵删。
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 strutils.dupestring - 反复字符串
更多相关阅读请进入《Delphi》频道 >>