Delphi模拟win+tab按键效果

Posted 2021-02-21 coder-mifir

//按下左侧win键

keybd_event(VK_LWIN,0,0,0);

//按下tab键

keybd_event(VK_TAB,0,0,0);

//抬起左侧win键

keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0);

//抬起tab键

keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);

 

var
  i: Integer;
begin
 keybd_event(VK_LWIN,0,0,0);    //按下一次win键即可
  for i := 0 to 150 do begin
  keybd_event(VK_TAB,0,0,0);//tab按键按下
  keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);//tab按键抬起
  end;
 keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0);//记得释放按下的win键
end;

View Code