Delphi中实现文件拷贝的三种方法计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:27:15
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试（等考）指定教材

　　全国计算机等级考试学习视频

　　全国计算机等级考试网上辅导招生

　　全国计算机等级考试时间及科目预告

　　百考试题教育全国计算机等级考试在线测试平台

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识

　　全国计算机等级考试上机考试应试技巧

　　1．调用API函数
　　procedure CopyFile(FromFileName,ToFileName:string).
　　var
　　f1,f2:file.
　　Begin
　　AssignFile(f1,FromFileName). //指定源文件名
　　AssignFile(f2,ToFileName). //指定目标文件名
　　Reset(f1).
　　Try
　　Rewrite(f2).
　　Try
　　If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)