比如将C盘根目录下a.txt文件拷贝到D盘根目录：
FileName1 := 'C:/a.txt';
FileName2 := 'D:/a.txt';
if FileExists(FileName2) then//FileExists判断是否存在
begin
if MessageBox(Handle,'文件已存在，是否覆盖？',
'确认',MB_YESNO+MB_ICONQUESTION)=IDNO then Exit;
end;
CopyFile(PChar(FileName1,FileName2,False);//CopyFile拷贝文件
比如将C盘根目录下a.txt文件拷贝到D盘根目录：
use fileCtrl
if FileExists(FileName2) then//FileExists判断是否存在
begin
if MessageBox(Handle,'文件已存在，是否覆盖？',
'确认',MB_YESNO+MB_ICONQUESTION)=IDNO then Exit;
end else begin
deletefile('f:/abc.txt');
CopyFile(PChar('f:/abc.txt','f:/efg.txt',False);//CopyFile拷贝文件
end;
