摘要： 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); 阅读全文