在Delphi中将文件复制到剪贴板

剪贴板和拖放有很多共同点。大多数支持拖放的库都具有剪贴板所需的全部功能。例如，检查以下库：http : //melander.dk/delphi/dragdrop/

它是免费的，具有完整的源代码，并包含许多示例，包括剪贴板操作。

示例之一是DragDrop \ Demos \ Unicode \ DragDropUnicode.dproj，它具有弹出命令“复制到剪贴板”：

procedure TForm1.ActionFileCopyExecute(Sender: TObject);
begin
  if (FFiles = '') then
    DropFileSource1.Files.Text := LoadResString(0)
  else
    DropFileSource1.Files.Text := FFiles;

  DropFileSource1.CopyToClipboard;
end;

希望能帮助到你。