[qwak]

Привет всем!
Возник такой вопрос, что и не знаю в какой раздел написать...
Как написать программу, которая бы нажимала клавиатурные клавиши через определённые промежутки времени?
Например: F1, через 1 секунду Insert, затем 3 секунды ничего затем опять Insert, а затем всё заново, и так до бесконечности?
Я поискал по форуму, но ничего не нашёл. Заоранее спасибо.

[Vayrus]

http://www.delphisources.ru/forum/sh...9735#post29735

Пост AplicatiON

[qwak]

А примерчика нету? В том посте не совсем то, что мне нужно.

[ApplicatiOn]

Код:

var
i:byte=0;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:= i+1;
case i of
1:  
begin
keybd_event(vk_f1,0, 0,0);
 keybd_event(vk_f1,0, keyeventf_keyup,0);
timer1.interval := 3000;
end;
2:
begin

keybd_event(vk_insert,0, 0,0);
 keybd_event(vk_insert,0, keyeventf_keyup,0);

timer1.interval := 1000;
end;
//... сколько надо
end;

end;

[ApplicatiOn]

p.s. если хочешь бесконечно, то не забываем обнулять i после всех действий

[qwak]

Большое спасибо.