请问delphi怎样复制文件

[pgz_007]

我想复制某个文件夹的某后缀名的所有文件到另外一个文件夹，请问该怎么做？

[老之]

WinExec('xcopy c:\test\*.txt d:\temp\', SW_HIDE);

[pgz_007]

如果是单个复制呢？有没有copyfile函数？

[JeffChung]

copyfile(
pcstr lpexistingfilename, // 源文件路径
lpcstr lpnewfilename, //新文件路径
bool bfailifexists //为true的话,如果新文件已存在,则返回false;
//如果為false的話,如果新文件已經存在,會將原來的覆蓋.
);

函數成功返回true,失敗返回false;

举例:
CopyFile(pChar('sql.txt'),pChar(ExtractFilePath(Application.ExeName) + '2.txt'),true);