Запускаем Delphi
Жмем File ==> New ==> Application
Кидаем на форму Edit со вкладки Standard и два Timer со вкладки System У первого таймера меняем свойство Interval на 3000 устанавливаем 3 секунды
Кликаем по первому таймеру 2 раза и прописываем между begin и end
Code
timer2.Enabled:=true; // включаем второй таймер
У второго таймера меняем свойство Enabled на False
и кликаем по второму таймеру два раза стираем begin
и между procedure и end пишем
Code
var
i:integer; // Создаем переменную строкового типа.
begin
// Десять нажатий на пробел(space) нажимаем и отпускаем
for i := 1 to 10 do begin // Задаем цикл (выполняем действие 10 раз)
keybd_event(VK_space, 0, 0, 0); // Нажимаем продел (space).
keybd_event(VK_space, 0, KEYEVENTF_KEYUP, 0); // отпускаем пробел (space).
// Отключаем нажатия
Timer1.Enabled:=false;
Timer2.Enabled:=false;
end;
А если надо нажать букву А например то:
Code
keybd_event(Ord('A'), 0, 0, 0); // Нажатие 'А'.
Надеюсь все понятно расписал.
