关于剪贴板的操作

Question

比如，当光标定位在某处的时候，按F5 把剪贴板中的内容复制到光标处

Answer 1

//参考如下代码
object Form1: TForm1
  KeyPreview = True
endprocedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_F5: SendMessage(GetFocus, WM_PASTE, 0, 0);
  end;
end;

Answer 2

http://search.csdn.net/Expert/topic/1096/1096022.xml?temp=.8771936

Answer 3

//前提要早说，参考如下代码
const
  cHotKeyF5 = 1;procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, cHotKeyF5);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, cHotKeyF5, 0, VK_F5);
end;procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY);
var
  vProcessID: DWORD;
begin
  case Msg.HotKey of
    cHotKeyF5:
    begin
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)
    end;
  end;
end;

Answer 4

//……type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    procedure WMHOTKEY(var Msg: TWMHOTKEY); message WM_HOTKEY;
  public
  end;var
  Form1: TForm1;implementation{$R *.dfm}const
  cHotKeyF5 = 1;procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, cHotKeyF5);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, cHotKeyF5, 0, VK_F5);
end;procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY);
begin
  case Msg.HotKey of
    cHotKeyF5:
    begin
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)
    end;
  end;
end;

Answer 5

谢谢  zswang(伴水清清)(专家门诊清洁工) 的帮助。没想到熄灯前能解决。
 真是太谢谢了