Auf Cursorveränderung reagieren

[Phil125]

Hallo,

Mein Programm soll wenn der Cursor von crDefault auf crHandpoint wechselt
einen Linkscklick durschführen
So habe ich es bisher probiert:

Delphi-Quellcode:

if Screen.Cursor = crHandPoint then
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

Jedoch wird so der Mausklick nie ausgeführt egal welcher cursor gerade zu sehen ist.
Ich denke dass dies daran liegt das er nur den aktuellen Standard Cursor überprüft,
nicht den aktuell angezeigten.

Denn wenn ich den Code so umändere:

Delphi-Quellcode:

if Screen.Cursor = crDefault then
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

wird der Klick sofort ausgeführ auch wenn nicht der crDefault Cursor
gerade angezeigt wird.

Ich hoffe mir kann jemand helfen !