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文件的内容一致。