[CRASH009]

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

[Drozh]

Используй WinApi функции:

Код:

var P: TPoint;
...
GetCursorPos(P); // получить координаты курсора

SetCursorPos(P); // установить

// нажимаем левую кнопку мыши по заданным координатам
Mouse_Event(MOUSEEVENTF_LEFTDOWN, P.X, P.Y, 0, 0);
// отпускаем
Mouse_Event(MOUSEEVENTF_LEFTUP, P.X, P.Y, 0, 0);

[CRASH009]

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

[Drozh]

Ну первое что пришло на ум это ловушка...
Создаешь dll приложение, и пишешь:

Код:

library hook;

uses
  Windows, Messages, SysUtils;

var
  SysHook: HHook = 0;

function SysMsgHook(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT stdcall;
var
 Text: String;
begin
  if (Code = HC_ACTION) and
     (wParam = WM_LBUTTONDOWN) then
  begin
   Text := Format('X: %d, Y: %d', [TMouseHookStruct(Pointer(lParam)^).pt.X,
                                   TMouseHookStruct(Pointer(lParam)^).pt.Y]);
   {
    каким либо образом выводишь эту строку
   }
  end;

 Result := CallNextHookEx(SysHook, Code, wParam, lParam);
end;

procedure RunHook() export; stdcall;
begin
 SysHook := SetWindowsHookEx(WH_MOUSE, @SysMsgHook, HInstance, 0);
end;

procedure StopHook() export; stdcall;
begin
 UnhookWindowsHookEx(SysHook);
end;

exports RunHook index 1;
exports StopHook index 2;

begin
end.

В самой программе поле строчки

Код:

var
  Form1: TForm1;

пишешь

Код:

procedure RunHook() stdcall; external 'hook.dll';
procedure StopHook() stdcall; external 'hook.dll';

Далее активируешь ловушку

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 RunHook();
end;

И уничтожешь

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 StopHook();
end;

Чесно говорю, сам не тестил, но должно работать