关于Delphi编程控制键盘自行执行的疑问？

Question

小弟想编一个小程序，以3秒为间隔，自动按下Alt+a的组合键？大虾们帮忙哈！！给点提示！！

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(18,0,0,0);
keybd_event(65,0,0,0);
keybd_event(65,0,KEYEVENTF_KEYUP,0);
keybd_event(18,0,KEYEVENTF_KEYUP,0);
  end;

Answer 2

在窗体上增加一个时钟控件Timer1,ActionManager1
时间控件设置为3秒:
其代码:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ActionManager1.Actions[0].Execute;
end;在ActionManager1里增加定义一个Action,定义其快捷键为ALT+A;
并在事件里编程如下:
procedure TForm1.Action1Execute(Sender: TObject);
begin
   showmessage('OK');
end;运行一下,三秒后自动OK,按ALT+A 也OK