[Pyro]

если нетак касается мышки то вот это должно рабоать:

PHP код:

procedure cli(x: Integer = -1; y: Integer = -1);
var
  d: tPoint;
begin
  if (x = -1) or (y = -1) then
    GetCursorPos(d)
  else
    d := Point(x, y);

  d.x := Round(d.x * (65535 / Screen.Width));
  d.y := Round(d.y * (65535 / Screen.Height));

  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, d.x, d.y, 0, 0);
  Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  Mouse_Event(MOUSEEVENTF_MOVE, 0, 0, 0, 0);
  Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  Mouse_Event(MOUSEEVENTF_MOVE, 0, 0, 0, 0);
end;