如何使用SendMessage发送按键组合，例如：Ctrl+A

代码

var    
      hwnd   :   Integer;   
   begin    
      hwnd   : =    FindWindow( ' Notepad ' ,    nil );   
      SetForegroundWindow(hwnd);   
      keybd_event(VK_CONTROL,   MapVirtualKey(VK_CONTROL,    0 ),    0 ,    0 );   
      keybd_event(Ord( ' A ' ),   MapVirtualKey(Ord( ' A ' ),    0 ),    0 ,    0 );   
      keybd_event(Ord( ' A ' ),   MapVirtualKey(Ord( ' A ' ),    0 ),   KEYEVENTF_KEYUP,    0 );   
      keybd_event(VK_CONTROL,   MapVirtualKey(VK_CONTROL,    0 ),   KEYEVENTF_KEYUP,    0 )   
   end ;

 

============================================================================

--------------第一种方法------------   
  这种方法在中文输入法打开的情况下中西文都正常,   
  但我不想用这种费事的办法.   
  ------------------------------------   
  //模拟按键函数