program Project1;
uses Windows;
Procedure KeyPress(keycode:byte);
begin
keybd_event(keycode,0,0,0);
keybd_event(keycode,0, KEYEVENTF_KEYUP,0);
end;
begin
while true do KeyPress(32)
end.
program Project1;
uses Windows;
Procedure KeyPress(keycode:byte);
begin
keybd_event(keycode,0,0,0);
keybd_event(keycode,0, KEYEVENTF_KEYUP,0);
end;
begin
while true do KeyPress(32)
end.
до цикла у меня аналогично, только я писал изначально для другого и немного расширеннее функционал, и у меня через таймеры (3 штуки), однако интервал стоял 1 мс, хз почему там мало набило