CopyFile для Linux

Материал из DRKB


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;


Author: Vit
ID: 04624