Hallo,

ich nutze WindowFromPoint in einem Timer um zu prüfen, ob die Maus über einem bestimmten Element schwebt, da dieses kein OnExit Ereignis hat.

Das funktioniert auch sehr gut, bis Strg+Alt+Entf gedrückt wird. Dann kommt eine Exception

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EOSError aufgetreten. Meldung: 'Ein Aufruf einer Betriebssystemfunktion ist fehlgeschlagen'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

und hinterher

Zitat:

Ein Aufruf einer Betriebssystemfunktion ist fehlgeschlagen.

Leider kann man diese exception nicht mit try except abfangen.

Ganz leicht kann man das mit folgendem Codeschnipsel nachbauen

markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := IntToStr(WindowFromPoint(Mouse.CursorPos));
end;

Fällt euch vielleicht ein, wie man die Exception umgehen kann?

Gruß Philip

Zitat von PeterParker:

Fällt euch vielleicht ein, wie man die Exception umgehen kann?

Ja, für sowas nicht Mouse.CurserPos verwenden sondern direkt die WinAPI-Funktion:

 Windows.GetCursorPos(result) Nicht nur Strg+Alt+Entf ist ein Fall das Windows.GetCursorPos False zurückliefert sondern auch der Remote Deskotp mit schließen der Fernsteuerung ohne abmelden.

Ich würde in diesem Fall einen Low Level Mousehook verwenden und somit das verwenden eines Timers
umgehen.

Ja, danke!

Bin gar nicht darauf gekommen, dass das Problem bei "Mouse.CursorPos" liegt, weil der Ausdruck so harmlos aussieht.

markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Mousepos: TPoint;
begin
  Windows.GetCursorPos(Mousepos);
  Label1.Caption := IntToStr(WindowFromPoint(Mousepos));
end;

Jetzt klappts