发送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;