Bluetooth Geräte in der Näher erkennen

[Deep-Sea]

Ich habe in einem Testprogramm folgendes gefunden:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  hDeviceFind:THANDLE;
  deviceInfo:BLUETOOTH_DEVICE_INFO;
  deviceSearchParams:BLUETOOTH_DEVICE_SEARCH_PARAMS;
begin
  deviceInfo.dwSize := SizeOf(deviceInfo);
  With deviceSearchParams do
  begin
    dwSize := SizeOf(deviceSearchParams);
    fReturnAuthenticated := true;
    fReturnRemembered := true;
    fReturnUnknown := true;
    fReturnConnected := true;
    fIssueInquiry := true;
    cTimeoutMultiplier := 2;
    hRadio := 0;
  end;
  hDeviceFind := BluetoothFindFirstDevice(deviceSearchParams, deviceInfo);
  If hDeviceFind = 0 then RaiseLastOSError
  else try
    repeat
      ShowMessage('Device: ' + deviceInfo.szName);
      //BluetoothDisplayDeviceProperties(0, deviceInfo);
    until not BluetoothFindNextDevice(hDeviceFind, deviceInfo);
  finally
    BluetoothFindDeviceClose(hDeviceFind);
  end;
end;

Leider kann ich dir nicht viel dazu sagen, da es schon einige Zeit her ist und auch testen kann ich es nicht mehr, weil ich kein Bluetooth-Gerät hier habe.