Zitat von
Hybrid666:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
bla : TCursorInfo;
begin
bla.cbSize := sizeof (bla);
GetCursorInfo (bla);
end;
Damit wird die genannte funktion ausgeführt. In bla stehen dann deine Cursor infos...
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
var
bla : TCursorInfo;
begin
bla.cbsize := sizeof (bla);
GetCursorInfo (bla);
if bla.cbsize =crHandpoint then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Timer2.Enabled:=false;
end;
end;.
Der Klick wird nach wie vor nicht ausgeführt, außer ich ändere es auf crDefault.
Wieso überprüft es nur den eingestellten Cursor und nicht den angezeigten ??