Как программно нажать какую либо кнопку (на клавиотуре)?

← →
SeriousSam © (2004-03-10 22:57) [0]

← →
Sentinel © (2004-03-10 23:26) [1]

Чтобы прям вдавилась? Все ведь зависит от того что тебе надо сделать.
Три варианта:

1.
Application.MessageBox("Dear User, please click Ok and press F1 then,"",64);

2.
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Handle,WM_KEYDOWN, Ord("0"),0)
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = Ord("0") then beep;
end;

3.
procedure TForm1.Button1Click(Sender: TObject);
begin
FormKeyDown(Sender,Ord("0"),[]);
end;

← →
Defunct © (2004-03-11 01:25) [2]

ЗЫ: Насчет 2. думаю правильне будет так:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(GetActiveWindow,WM_KEYDOWN, Ord("0"),0)
end;

← →
Игорь Шевченко © (2004-03-11 10:12) [3]

> Как программно нажать какую либо кнопку (на клавиотуре)?

keybd_event

Он же уточнил, что нажать надо на клавиатуре.

Нужен электро-межанический девайс (ну или пневматический там)

Ага, и счас пойдут советы по теории автоматического управления, создание манипуляторов, роботов .... :))))

Как программно нажать какую либо кнопку (на клавиотуре)? Найти похожие ветки