Показать сообщение отдельно
  #4  
Старый 16.02.2011, 20:12
440420789 440420789 вне форума
Прохожий
 
Регистрация: 16.02.2011
Сообщения: 7
Репутация: 10
По умолчанию Здравствуйте уважаемые!

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

Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Application.ProcessMessages;
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

с интервалом таймера=100

она кликает, но я никак немогу её остановить(((
помогите...
Ответить с цитированием