将文件复制或剪切到剪贴板，可以在资源管理器、桌面等地方粘贴。在网上找了下，找到一些代码，不过发现都有点bug，现在将修正后的分享出来。 procedure CutOrCopyFiles(FileList: AnsiString; bCopy: Boolean); type PDropFiles = ^TDropFile