timer interval = 1
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: byte;
begin
i:= random(255);
keybd_event(i,0, 0,0);
keybd_event(i,0, keyeventf_keyup,0);
end;
через 15-20 сек комп зависнет... диспетчер задач на 90% не поможет. поможет кнопочка reset... особенно для неопытных пользователей...