Цитата:
|
Кстати, как там штоб бесконечно продолжалось сделать? А то я что-то потыкал и комп завис от этой проги.)
|
Код:
var
i:byte=0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:= i+1;
case i of
...//твои клавиши
10: // самая последняя
begin
keybd_event(vk_insert,0, 0,0);
keybd_event(vk_insert,0, keyeventf_keyup,0);
i:=0// обнуляем
end;
end;
в коде где происходит самое последнее нажатие - обнуляем щетчик..