[Flop88]

Короче говоря. Нужно чтобы программа зажимала кнопку и затем отжимала, спустя некоторое время ( q ) также зажимала и отжимала кнопку, но уже другую кнопку Вот написал, а оно не работает. В чём проблемка может быть?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

procedure TForm1.tmr1Timer(Sender: TObject); var   q: Integer; begin keybd_event(Byte('A'), 0, KEYEVENTF_KEYUP, 0); keybd_event(Byte('W'), 0, 0, 0); Sleep(q); keybd_event(Byte('W'), 0, KEYEVENTF_KEYUP, 0); keybd_event(Byte('D'), 0, 0, 0); Sleep(q); keybd_event(Byte('D'), 0, KEYEVENTF_KEYUP, 0); keybd_event(Byte('S'), 0, 0, 0); Sleep(q); keybd_event(Byte('S'), 0, KEYEVENTF_KEYUP, 0); keybd_event(Byte('A'), 0, 0, 0); Sleep(q); begin if rb1.Checked then  q:= 1000; end; begin if rb2.Checked then  q:= 2000; end; begin if rb3.Checked then  q:= 3000; end; begin if rb4.Checked then  q:= 4000; end; begin if rb5.Checked then  q:= 5000; end; end;

[angvelem]

Назначили переменной q некоторое значение и что дальше? Где она изменяется/используется. Использовать Sleep в таймере?... Нонсенс.

[M.A.D.M.A.N.]

Программа задом наперед написана.
Переменную q проинициализируй до эмуляции нажатия клав.

P.S. Синхронно нах :-)

[Flop88]

ну я только учусь

[angvelem]

Глобальная переменная наращивается и сравнивается с q, при равенстве, q обнуляется и выполняется требуемое действие. Не забудь учесть время выставленное для таймера.