请问如果向指定窗口发送模拟按键

Question

我写了个WINIO驱动方式模拟按键，如果向指定的窗口句柄发送这个模拟按键呢？

Answer 1

用SendMessage函数即可。
假定 Form1向Form2模拟发按键消息。
procedure TForm1.Button1Click(Sender: TObject);
var
  Key: Word;
begin
  Key := 111;
  SendMessage(Form2.Handle,WM_KEYDOWN,Key,0);  //将触发Form2的KeyDown事件
end;procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Showmessage('Simulate KeyDown'+IntToStr(Key));
end;