Bluetooth Geräte in der Näher erkennen

[hathor]

Fehler:

Warum wird der Cursor bewegt?
Programm lässt sich nur mit ALT-F4 beenden.

Ursache:
- das creierte Window ist unsichtbar,
- ein Button(OK) ist deaktiviert, bekommt aber trotzdem den Focus,
- die Prioritätserhöhung ist überflüssig!

Delphi-Quellcode:

procedure tHideBTWIndow.Execute;
var
 TheWindowHandle: THandle;
begin
  priority := tpHigher; // wozu ???
  try
    while not Form1.fAbort do begin
     TheWindowHandle := FindAWindow('Bluetooth-Gerät auswählen', '');
//     if TheWindowHandle<>0 then ShowWindow(TheWindowHandle,sw_Hide);
//     if TheWindowHandle<>0 then PostMessage(TheWindowHandle,WM_CLOSE, 0, 0);
    end;
  except

  end;
end;