发送快捷键

var
  hwnd   :   Integer;
begin
  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;