如何使用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;