keybd_event delphi版

procedure TForm1.btn1Click(Sender: TObject);
begin
  mmo1.SetFocus ;
   keybd_event(VkKeyScan('n'),1,0,0);
   keybd_event(VkKeyScan('n'),1,KEYEVENTF_KEYUP,0);
   keybd_event(VkKeyScan('o'),1,0,0);
   keybd_event(vkkeyscan('o'),1,keyeventf_keyup,0);
   keybd_event(VK_RETURN,$b8,0 , 0); //  -- 按下Alt 鍵
   keybd_event(VK_RETURN,$b8,KEYEVENTF_KEYUP,0);//
end;

 

VOID keybd_event( BYTE bVk, BYTE bScan, DWORD dwFlags, DWORD dwExtraInfo );
4個參數都是輸入參數。
bVk：鍵名，例如：  VK_NUMPAD7，VK_BACK， VK_TAB，VK_SHIFT，VK_F1，。。。
keybd_event(VK_MENU,0xb8,0 , 0);   -- 按下Alt 鍵
keybd_event(VK_MENU,0xb8,KEYEVENTF_KEYUP,0); -- 放開 Alt 鍵 （復位，彈上來）