Mausklick ausführen, ohne Mauszeigerbewegung.

[Aphton]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var P:TPoint;
    X, Y:integer;
begin
  X:=100;
  Y:=100;
  if GetCursorPos(P) then begin
    SetCursorPos(X, Y);
    Mouse_Event(MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0);
    Mouse_Event(MOUSEEVENTF_LEFTUP, X, Y, 0, 0);
    SetCursorPos(P.X, P.Y);
  end;
end;

Dies ist nur eine leicht abgeänderte Form der hier zuvor geposteten Routine.
Bei mir funktionierts!

MfG