模拟F6键连续点击，timer的Interval试过设置为400，100，10了，但总是连续点击3次就停了，然后过几十秒才又开始连续点击3次，然后又停。不知什么原因。(注：我是想用一自编程连续点击F6键，以控制另一程序实现其F6的功能。）程序在仅自身打开的时候就可以实现连续点击，但受控程序打开后就出现以上的情况。（我试过用按键精灵是可以连续点击的，但我又不想用。）procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(117,mapvirtualkey(117,0),0,0);
keybd_event(117,mapvirtualkey(117,0),keyeventf_keyup,0);
end;
begin
keybd_event(117,mapvirtualkey(117,0),0,0);
keybd_event(117,mapvirtualkey(117,0),keyeventf_keyup,0);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
keybd_event(117,mapvirtualkey(117,0),0,0);
keybd_event(117,mapvirtualkey(117,0),keyeventf_keyup,0);
Timer1.Enabled:=true;
end;