Работа с Bluetooth в Delphi

dwSize

Размер структуры в байтах

address

Адрес локального радиомодуля

szName

Имя радиомодуля

ulClassofDevice

Класс устройства

lmpSubversion

Устанавливается производителем

manufacturer

Код производителя (константы BTH_MFG_Xxx). Для получения новых кодов обратитесь к сайту спецификаций Bluetooth

Code:

procedure GetRadioInfo(hRadio: THandle);

var RadioInfo: BLUETOOTH_RADIO_INFO;

begin

// Инициализация структуры BLUETOOTH_RADIO_INFO

FillChar(RadioInfo, 0, SizeOf(RadioInfo));

RadioInfo.dwSize := SizeOf(RadioInfo);

// Получаем информацию

if (BluetoothGetRadioInfo(hRadio, RadioInfo) = ERROR_SUCCESS) then

begin

// Используем полученную информацию

end;

end;