发送Ctrl+C 组合键

var
  hwnd   :   Integer;
begin

--其实源控件只要设置焦点就可以了

  DBGridEh1.SetFocus;

  hwnd   :=   FindWindow('Form1',   nil);                         // 关键要获得获取信息的控件的句柄
  SetForegroundWindow(hwnd);
   keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);    // 按下Ctrl键
  keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), 0, 0);        // 按下C键
  keybd_event(ord('C'), MapVirtualKey(ord('C'), 0), KEYEVENTF_KEYUP, 0);     // 放开C键
  keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0); // 放开Ctrl
end;