关于虚拟键的问题

Question

请问，能不能用delphi完成一个程序，这个程序能够模拟键盘的按键顺序，比如：
执行这个程序，就相当于按下，Win+R、c、m、d、enter、e、x、i、t、enter？
是不是把这些虚拟键值写入键盘消息队列？请高手给出解决方法。

Answer 1

要给 edit 一个字符：PostMessage(Edit1.Handle, WM_KEYDOWN, ORD('A'), $001E0001);

Answer 2

Win+R??可能不好实现后面的很简单

Answer 3

以下程序向 记事本 发送字符procedure TForm1.Button1Click(Sender: TObject);
var g,d:integer;
begin
  {Find the main window of the Application}
  g:=FindWindow('Notepad',nil) ;   //向记事本发送字符
  {Find the window of the application's text box}
  d:=ChildWindowFromPoint(g,point(50,50)) ;
  {Now send it a character!!}
  SendMessage(d,WM_CHAR,Ord('A'),0) ;
end;