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;