не могу найти как нажать мышку из программы

[skeletishe]

помогите научиться перемещать мышку и нажимать кнопки на мыше из программы
нужны следующие действия:
нажать левую кнопу мыши и передвинуть курсор не отжимая мышь до нужных координат,
пауза, или временная задержка, т.е. нужно чтобы не сразу выполнялись команды, а с некоторой задержкой;
двойное нажатие;

[mihali4]

Как программно эмулировать нажатие мышкой на кнопку?

Для этого нужно послать сообщение Windows. Это можно сделать так:

ТButton1.Perform(WM_LBUTTONDOWN, 0, 0);

Эта строка посылает сообщение, что нажата левая кнопка мышки на ТButton1. Для правой кнопки мышки первый параметр изменится на WM_RBUTTONDOWN. Если захотите послать событие о поднятии кнопки, то первый параметр меняется на WM_LBUTTONUP или WM_RBUTTONUP для левой и правой кнопки соответственно.
С координатами еще проще:
В примере мышка слегка "подталкивается" без участия пользователя.

procedure TForm1.Button1Click(Sender: TObject);
var pt : TPoint;
begin
Application.ProcessMessages;
Screen.Cursor := CrHourglass;
GetCursorPos(pt);
SetCursorPos(pt.x + 1, pt.y + 1);
Application.ProcessMessages;
SetCursorPos(pt.x - 1, pt.y - 1);
end;

Кроме того, вам уже порекомендовано пользоваться поиском по форуму.
А наш СуперМодератор шутить не любит. Если сказал - то и отрежет...

[skeletishe]

Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

в этой команде для чего нолики, поэкспериментировал с подстановкой разных чисел ничего не обнаружил

[skeletishe]

а как на счет задержки в выполнении команд? короче нужно перемещать курсор с интервалом 0,2 сек

[Levsha100]

Используйте компонент TTimer

[skeletishe]

вроде разлулил, все события))
всем спасибо