Перемещение курсора на конкретное изображение.

[Nanosinton]

Всем привет.
Только начал изучать Delphi.
Написал такой автокликер.
Проблема такая: нужно переместить курсор на конкретное изображение на екране.
Координаты изображения время от времени меняютя и приходится определять их заново.

вот код програмы на 3 клика:

begin
 x:=StrToInt(Edit5.Text);
 z:=StrToInt(Edit6.Text);
 s:=StrToInt(Edit23.Text);
 sleep(60000*x);
 if z=1 then
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
 setcursorpos(a,b);
 mouse_event(mouseeventf_leftdown,0,0,0,0);
 mouse_event(mouseeventf_leftup,0,0,0,0);
end;
if z=2 then
  begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
 setcursorpos(a,b);
 mouse_event(mouseeventf_leftdown,0,0,0,0);
 mouse_event(mouseeventf_leftup,0,0,0,0);
 a:=StrToInt(Edit3.Text);
 b:=StrToInt(Edit4.Text);
 sleep(s*1000);
 setcursorpos(a,b);
 mouse_event(mouseeventf_leftdown,0,0,0,0);
 mouse_event(mouseeventf_leftup,0,0,0,0);
 end;
   if z=3 then
  begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
 setcursorpos(a,b);
 mouse_event(mouseeventf_leftdown,0,0,0,0);
 mouse_event(mouseeventf_leftup,0,0,0,0);
 a:=StrToInt(Edit3.Text);
 b:=StrToInt(Edit4.Text);
sleep(s*1000);
 setcursorpos(a,b);
 mouse_event(mouseeventf_leftdown,0,0,0,0);
 mouse_event(mouseeventf_leftup,0,0,0,0);
 a:=StrToInt(Edit7.Text);
 b:=StrToInt(Edit8.Text);
  sleep(s*1000);
 setcursorpos(a,b);
 mouse_event(mouseeventf_leftdown,0,0,0,0);
 mouse_event(mouseeventf_leftup,0,0,0,0);
 end;

  end;

end.

Заранее спасибо.

У нас принято оформлять код специальным тегом. Кнопка #. Модератор

[dr.Chas]

Это похоже на индусский код Используйте процедуры или функции. И компонент таймер.

[Aliens_wolfs]

Эмуляция нажатий или перемещения мыши когда окно или контрол появляются в разных местах это гемор. Используй оконный hendle изображения и посылай ему с помощью сообщений клик мыши, при этом ловить координаты или перемещать мышь тогда не нужно нажатие будет непосредственно в изображении. Хэндлы окон умеешь ловить?

[Nanosinton]

Сообщение от Aliens_wolfs

Эмуляция нажатий или перемещения мыши когда окно или контрол появляются в разных местах это гемор. Используй оконный hendle изображения и посылай ему с помощью сообщений клик мыши, при этом ловить координаты или перемещать мышь тогда не нужно нажатие будет непосредственно в изображении. Хэндлы окон умеешь ловить?

Спасибо. Хэндлы ловлю с помощью сторонней проги.

А как емулировать нажатие мыши на кнопку в инетрнет странице?