DELPHI文件的复制

CopyFile(
  lpExistingFileName: PChar; {源文件}
  lpNewFileName: PChar;      {目标文件}
  bFailIfExists: BOOL        {如果目标文件存在, True: 失败; False: 覆盖}
): BOOL;

---

//例1:
begin
  CopyFile('c:/BOOTLOG.TXT', 'c:/temp/BOOTLOG.TXT', True);
end;

---

//例2:
var
  ExistFile, NewFile: string;
begin
  ExistFile := 'c:/BOOTLOG.TXT';
  NewFile   := 'c:/temp/BOOTLOG.TXT';

  if CopyFile(PChar(ExistFile), PChar(NewFile), True) then
    ShowMessage('复制成功');
end;

---以上部分是转载过来的

CopyFile(PChar(ExistFile), PChar(NewFile), True) 目标文件存在则不覆盖

CopyFile(PChar(ExistFile), PChar(NewFile), Flase 目标文件存在则覆盖