[DELPHI] Copia di un file in una cartella

[123delphi321]

lo ho trovato su questo link:
http://groups.google.it/group/it.com...0914913adb8319

facci sapere se va bene.

ciao

Un modo semplice per farlo e` usare gli stream:

procedure MyCopyFile(const SourceName: String;
const TargetName: String);
var
SourceStream: TFileStream;
TargetStream: TFileStream;
begin
SourceStream := TFileStream.Create(SourceName, fmOpenRead);
TargetStream := TFileStream.Create(TargetName, fmCreate);
try
TargetStream.CopyFrom(SourceStream, 0);
finally
SourceStream.Free;
TargetStream.Free;
end;
end;