copyfile('a:\test.ini','a:\test2.ini',false);
//---------------------------------------------------
//CopyFile('<源文件的全部路径>','<目标文件的全部路径>',<False或true>);
//True,若拷贝过去的文件路径下已存在相同文件,那么不替换文件。
//False,若拷贝过去的文件路径下已存在相同文件,那么会替换掉文件。
//---------------------------------------------------
//---------------------------------------------------
//CopyFile(pChar(<源文件路径的字符串>),pChar(<目标路径的字符串)>,<False或true>);
//<定义的字符串名>:=GetCurrentDir;获取exe文件所在的目录路径,并赋值给字符串;
//---------------------------------------------------
ZkyStrSource:=GetCurrentDir+'\test\test_1.txt';//将路径定为exe所在的目录路径下的test文件夹下的test_1.txt
ZkyStrObj:=GetCurrentDir+'\test\test_2.txt';
CopyFile(PChar(ZkyStrSource),PChar(ZkyStrObj),False);
ShowMessage('第二次copy完成');
Delphi-CopyFile
最新推荐文章于 2023-12-29 10:09:07 发布