delphi中如何实现文件的复制？

你的这个问题我来说说：
用CopyFile(）函数吧。
CopyFile（pchar('c:\123.txt'),pchar('d:\123-备份.txt'),False) ;

其实作为编程，你可以选择文件并动态设置文件名：

首先你在form上添加个savefiledialg，并设置这个savefiledialg相关参数，
再在form上添加个openfiledialg ，并设置这个openfiledialg的相关参数。

然后这样编程：
if openfiledialg1.execute then
begin
if savefiledialg1.excetu then
begin
CopyFile(pchar(openfiledialg1.filename),pchar(savefiledialg1.filename),False) ;
end ;
end ;

（以上代码只是随手编写，过程是正确的，但是不保证关键字的字母排列是否正确。）

用
CopyFile（'c:\123.txt','d:\123-备份.txt',False);

最后那个false，如果设置成true就是如果d盘存在123-备份.txt则不替换源文件，设置成false则替换

CopyFile（‘你要复制的文件的路径’,‘你要复制到的地方’,False);

简单的：
winexec('cmd /c copy c:\123.txt d:\123-备份.txt',0)