Delphi имитация нажатия правой кнопки мыши

[Lomanu4]

делаем программку, которая будет кликать в нужном нам месте, подобно автокликеру...

на форме две кнопки, первая для определения координат курсора , вторая для выполнения "нажатия"
ну и я кинул один Label , чтоб было понятней...

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

var a:tpoint;
begin
sleep(1500);
getcursorpos(a);// получаем координаты
x1:=a.x; y1:=a.y;// присваиваем значения переменным
label1.Caption:='ок';]// сообщаем о том что можно нажать вторую кнопку

переменные x1,y1 - глобальные
ну и конечно же нажимаем на кнопку..

SetCursorPos(x1,y1);//поставили курсор на место
mouse_event(MOUSEEVENTF_LEFTDOWN,x1,y1,0,0); //нажали
mouse_event(MOUSEEVENTF_LEFTUP,x1,y1,0,0);//отпустили