关于Delphi编程控制键盘自行执行的疑问？
小弟想编一个小程序，以3秒为间隔，自动按下Alt+a的组合键？
大虾们帮忙哈！！给点提示！！
[解决办法]
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;
[解决办法]
在窗体上增加一个时钟控件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
