在Delphi中使用TClipBoard.AsText可以简单的把一个文件名列表存入(获取出)到
剪接板中. 如下例使用OpenDialog选者多个文件名放到Memo1中, 然后通过剪接板
把文件名传给Memo2.
procedure TForm1.Button1Click(Sender: TObject);
var ClipBoard: TClipBoard;
begin
OpenDialog1.Options:=OpenDialog1.Options + [ofAllowMultiSelect];
if OpenDialog1.Execute then
begin
Memo1.Lines := OpenDialog1.Files;
ClipBoard:=TClipBoard.Create;
ClipBoard.AsText:=Memo1.Text;
Memo2.PasteFromClipboard;
ClipBoard.Free;
end;
end;
Cut,Copy,Paste,Delete文件是由用户确定的.
1. 如果需要Cut+Paste到不同目录, Move这些文件到新目录即可
2. 如果Paste到相同目录, Copy成不同的文件名
3. 如果删除, 送到垃圾箱
如何移动, 复制, 删除, 送到垃圾箱应该没有为提吧? 如有, 参见已答问题