delphi CopyFile的基础用法

1、在D:\test文件夹下建立test_1.txt文件，并输入文字；

2、在程序所在的目录下新建一个名为test的文件夹，并在下面建立test_1.txt文件，并输入文字；

3、在窗口中拖出一个按钮，双击按钮后输入以下代码：

procedure TForm1.btn_copyClick(Sender: TObject);
var
ZkyStrSource:string;//定义一个字符串，用来存放源文件地址；
ZkyStrObj:string;//定义一个字符串，用来存放目标文件地址；
begin
//---------------------------------------------------
//CopyFile('<源文件的全部路径>','<目标文件的全部路径>',<False或true>);
//True，若拷贝过去的文件路径下已存在相同文件，那么不替换文件。
//False，若拷贝过去的文件路径下已存在相同文件，那么会替换掉文件。
//---------------------------------------------------
CopyFile('D:\test\test_1.txt','D:\test\test_2.txt',False);
ShowMessage('第一次copy完成');

//---------------------------------------------------
//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完成');

end;

结果：
在D:\test文件夹和程序所在的目录下的test的文件夹内分别多出一个名为test_2.txt文件，内容分别和其对应的test_1.txt文件的内容一致。