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;