Code
procedure ClickXY(x,y: word);
begin
{Преобразуем x и y к абсолютным координатам курсора мышки}
x := Round(x * (65535 / Screen.Width));
y := Round(y * (65535 / Screen.Height));
{Переместим курсор мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, x, y, 0, 0);
{Имитируем нажатие левой кнопки мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
{Имитируем отпускание левой кнопки мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, x, y, 0, 0);
end;
пример использования:
Code
ClickXY(0,0);//произведется клик по левой верхней точке экрана
| 
