如模拟按下Ctrl键:
    keybd_event(VK_RCONTROL, 0, 0, 0);
    keybd_event(VK_RCONTROL, 0, KEYEVENTF_KEYUP, 0);但是Alt键系统键,好象不是这么做的???

解决方案 »

  1.   

    可以啊,下面代码弹出当前表单的左上角系统菜单
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      // Alt
      keybd_event(VK_MENU, 0, 0, 0);
      keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
      // Down
      keybd_event(VK_DOWN, 0, 0, 0);
      keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
    end;
      

  2.   

    这样试试
    keybd_event(18, 0, 0, 0);
    keybd_event(18, 0, KEYEVENTF_KEYUP, 0);
      

  3.   

    keybd_event(VK_MENU, 0, 0, 0);
      keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);