Скачать: CL | DM;

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

← →
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

---

← →
Reindeer Moss Eater ©   (2004-03-11 10:17) [4]

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

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

---

← →
serge ©   (2004-03-11 10:21) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c