CopyFile для Linux |
Previous Top Next |
Code: |
Function CopyFile(Org, Dest:string):boolean; var Source, Target:TFileStream; begin Result:=false; try try Source:=TFileStream.Create(Org, fmShareDenyNone or fmOpenRead); try Target:=TFileStream.Create(Dest, fmOpenWrite or fmCreate); Target.CopyFrom(Source,Source.Size); Result:=true; finally Target.Free; end; finally Source.Free; end; except end; end; |
©Drkb::04624
Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)