copyfile(
lpcstr lpexistingfilename, //源文件路径
lpcstr lpnewfilename, //新文件路径
bool bfailifexists //为true的话,如果新文件已存在, 则返回false;
为false的话,如果新文件已存在,会将原文件覆盖。);
函数成功返回true,失败返回false;
举例:
CopyFile(pChar(‘5586523.png‘),pChar(ExtractFilePath(Application.ExeName) + ‘test.png‘),true);
原文地址:http://www.cnblogs.com/YoungMei/p/3862230.html