文件名称：Delphi 实现基于API函数的文件复制功能.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 12:06:39
Delphi源码-界面编程
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 raise EInOutError.Create('Error using LZCopy'); showmessage('文件复制成功。'); finally CloseFile(ToFile);//关闭目标文件 end; finally
【文件预览】：
codesc.net
----copy()
--------Project1.res(876B)
--------Unit1.dfm(1KB)
--------Project1.cfg(434B)
--------Unit1.pas(2KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(6KB)