我想定时的去触发一下按下键盘Q的事件。

Question

我想定时的去触发一下按下键盘Q的事件，不知道用什么函数。大侠请教

Answer 1

http://community.csdn.net/Expert/topic/3200/3200266.xml?temp=.5767633把里面的单元加入到你的程序中
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  sendkeys('Q');
  waitforhook;
end;

Answer 2

自已修改一下吧
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=81 then
  showmessage('dfdfd');
end;

Answer 3

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=81 then
  showmessage('dfdfd');
end;

Answer 4

keybd_event(Ord('Q'), MapVirtualKey(Ord('Q'), 0), 0, 0);
keybd_event(Ord('Q'), MapVirtualKey(Ord('Q'), 0), KEYEVENTF_KEYUP, 0);

Answer 5

你可以設快捷鍵.如alt+Q等於我們設的&Q,等到你的特定時間到:
sendkey('alt'+'Q');