Эмуляция нажатий клавиатуры

[Роспотребнадзор]

Вот кусок кода


procedure TForm1.sButton1Click(Sender: TObject);
begin
NeedStop := False;// глобальная переменная
for I := 0 to 10000 do

// тут процесс эмуляции клавиш
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
NeedStop := True;
end;


Как эмулировать нажатие клавиш на клавиатуре? Как можно задать паузу между нажатиями клавиш?Пробовал SendMassage и прочее, не получалось /kidding

[MarrakeSH]

procedure TForm1.sButton1Click(Sender: TObject);
begin
NeedStop := False;// глобальная переменная
for I := 0 to 10000 do
begin
keybd_event(ord('тут клавиша которую надо'), 0, 0, 0);
keybd_event(ord('таже клавиша'), 0, KEYEVENTF_KEYUP, 0);
end;
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
NeedStop := True;
end;

P.s По этому твоему коду клавиша нажмётся 10000 раз

[Роспотребнадзор]

procedure TForm1.sButton1Click(Sender: TObject);
begin
NeedStop := False;// глобальная переменная
for I := 0 to 10000 do
begin
keybd_event(ord('тут клавиша которую надо'), 0, 0, 0);
keybd_event(ord('таже клавиша'), 0, KEYEVENTF_KEYUP, 0);
end;
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
NeedStop := True;
end;

P.s По этому коду клавиша нажмётся 10000 раз

Спасибо. Я в первом посте еще про паузу писал. Можно ли паузу организовать? pause(3000); Так?/dgs

[MarrakeSH]

Я в первом посте еще про паузу писал. Можно ли паузу организовать? pause(3000); Так?
sleep(время в мс)

[Роспотребнадзор]

sleep(время в мс)

Точно. Спасибо, я знал этот оператор, только забыл/dgs

[VeTaL_UA]

PostMessage, нЭ? Или целью было сделать всё на WinApi?