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.