А как послать программно нажатие клавиши?

← →
aaaa (2003-07-14 10:57) [0]

Мне,например,необходимо послать нажатие ESC в активное окно моей же программы

← →
Darrin (2003-07-14 11:13) [1]

procedure TForm1.Button1Click(Sender: TObject);
var key:char;
begin
key:=#27;
KeyPress(key);
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then close;
end;

← →
Palladin (2003-07-14 11:20) [2]

SendMessage(GetActiveWindow,WM_CHAR,27,27 shr 16);

← →
BillyJeans (2003-07-14 13:23) [3]

PostMessage(Handle, WM_KEYDOWN, 27, 0);

А как послать программно нажатие клавиши? Найти похожие ветки