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;