Bluetooth API (JwaBluetoothAPIs) Problem erhalte immer 0

[CTV]

Danke dir Flocke
ich habe das Problem lösen können habe aber schon wider ein neus:

Lösung des alten Problems:
die Deklaration sieht nun so aus:

Delphi-Quellcode:

var  
  btfrp: _BLUETOOTH_FIND_RADIO_PARAMS = (
  dwSize: SizeOf(TBlueToothFindRadioParams ));

und die Zuweisung so:

Delphi-Quellcode:

  btfrp.dwSize:=sizeof(btfrp);
  hFind := BluetoothFindFirstRadio(@btfrp, hRadio );

BluetoothFindFirstRadio erwartet einen Pointer für btfrp dann habe ich einfach ein @ hingemacht

Neues Problem:
nun kann ichs starten und es kommt kein fehler aber es zeigt mir immer noch nichts schlaues an. und es kann noch nicht richtig auf die Infos zugreifen:

Delphi-Quellcode:

  radioInfo.dwSize:= sizeof(radioInfo);
  if (ERROR_SUCCESS = BluetoothGetRadioInfo(hRadio,radioInfo)) then
  begin
    memo1.Lines.Add('Radio: '+ radioInfo.szName)
  end
  else
  begin
    showmessage('error read RadioInfo');
  end;

ERROR_SUCCESS wird zu false ausgewertet und somit wird das error showmessage aufgerufen.
Ich weiss aber nicht wieso denn hfind ist nicht 0 es wenn ich hfind anzeigen lasse hat hfind den wert 4 (den selben wert, welcher auch sizeof(btfrp) zurück gibt) hat jemand eine idee wieso ERROR_SUCCESS zu false ausgewertet wird??

Danke für eure Hilfe
Greetz CTV