Имитация клика мышки на экране

[CRASH009]

Здравствуйте! Подскажите, как возможно реализовать программу, которая будет имитировать клик мышки в заданной точке экрана? То есть если в область клика попадает объект стороннего приложения (кнопка), то она ьбудет нажиматься.
Спасибо.

[eoln]

  x := 0;
  y :=  0;
  SetCursorPos(x, y);
  Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
  Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);

[CRASH009]

Спасибо большое!

Всё хорошо, а как сделать определение координат вне формы? Дело в том, что сама рабочая форма маленькая, а мне надо узнать координаты курсора в любой точке экрана вне этой формы. Для области формы я написал:

GetCursorPos(W);
ShowMessage( '(' + IntToStr( W.X) + ' ,' + IntToStr( W.Y ) + ')' );

А если курсор находится за пределами формы и мне нужны его координаты?

[NikLik]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p);
  form1.Caption := '(' + IntToStr(p.X) + ',' + IntToStr(p.Y) + ')';
end;

Вполне справляется с определением координат курсора в любой точке экрана.

[CRASH009]

Спасибо всем огромное Выручили
Но задача немного усложнилась - мне теперь нужно наоборот, чтобы координаты курсора вносились на форме при клике мыши вне пространства формы. Именно при клике. То есть я кликаю мышкой вне формы в другой области экрана, а координаты вносятся на форме. Ведь получается, что форма неактивна и клик мыши мимо формы не будет выполнять событие этой формы...

[NikLik]

Неоднократно обсуждалось на форуме.

[CRASH009]

Супер Теперь вроде всё. Спасибо. Помогли ребят.