1.调用API函数procedure CopyFile(FromFileName,ToFileName:string);varf1,f2:file;BeginAssignFile(f1,FromFileName); file://指定源文件名AssignFile(f2,ToFileName); file://指定目标文件名Reset(f1);TryRewrite(f2);TryIf Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0ThenRais…