Delphi用API函数进行文件的复制，使用API函数实现文件复制， 　　AssignFile(FromFile, SourceName);//指定源文件名 　　AssignFile(ToFile, DestName);//指定目标文件名 　　Reset(FromFile);//读文件 　　try 　　 Rewrite(ToFile);//写文件 　　 try 　　 //对文件进行复 　　 if LZCopy(TFileRec(FromFile).Handle,TFileRec(ToFile).Handle)<0 then 　　 rai