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