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

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

PostMessage(Handle, WM_KEYDOWN, 27, 0);

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