delphi 创建备份文件

// 创建备份文件

function CreateBakFile(FileName, Ext: string): Boolean;

var

 BakFileName: string;

begin

 BakFileName := FileName + '.' + Ext;

 Result := CopyFile(PChar(FileName), PChar(BakFileName), False);

end;