кликать мышью с интервалом в секунду

[4ajnik]

доброго времени суток,ребята,я не являюсь,ни программистом ни студентом в том 4исле.но мне нужна ваша помощь.если это не сложно не мог бы кто нибудь написать простенькую прогу 4тобы во время её работы постоянно кликала правая мыш.с интервалом в секунду,типо на 1 нажмешь на4инает кликать на 2 нажмешь перестаёт,обещаю 4то эта программа не будет использована в корыстных целях.если кто нибудь из вас будет так добр сделать это для меня,вышлите её пожалуйста на мыло или стукнитесь в 275798514.заранее благодарю за помощь,просто некуда больше обратиться и знакомых в вашем кругу у меня тоже нет...avtokliker не подходит,4естно говориа ето мне длиа игры нужно а в ней несапостовимость с avtoklikerom

[Sm1Le]

Вроде что то типа такого ?

[angelhoy]

Подскажи а как её редактировать...Мне нужно что бы щёлкала быстрей разов в 10

[MadReason]

procedure TForm1.Timer1Timer(Sender: TObject);
var
pt:TPoint;
begin

{Преобразуем Pt в координаты экрана}
  Pt := ClientToScreen(Pt);
{Преобразуем Pt в mickeys}
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or
              MOUSEEVENTF_LEFTDOWN,
              Pt.x,
              Pt.y,
              0,
              0);;
{Эмулируем отпускание левой кнопки мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or
              MOUSEEVENTF_LEFTUP,  
              Pt.x,
              Pt.y,  
              0,
              0);;
end;

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

click.zip