如何在 Delphi 中实现普通文件的拷贝

如何在 Delphi 中实现普通文件的拷贝
有时写木马 病毒程序可能会用到

var
sfile,dfile : String;
begin
sfile :='a.txt'; //被copy的文件
dfile :='b.txt'; //copy后的文件名
CopyFile(pchar(sfile),pchar(dfile),false);
第三个参数为 false，如果 b.txt 已经存在，则覆盖；如果为 true，则不进行操作。