quarta-feira, 23 de setembro de 2009

Copia arquivos (fácil e rápido)

Procedure FileCopy( Const Arquivo_origem, Arquivo_destino: String );
Var
FOrigem, FDestino: TFileStream;
Begin
FOrigem := TFileStream.Create( Arquivo_origem, fmOpenRead );
try
FDestino := TFileStream.Create( Arquivo_destino,
fmOpenWrite or fmCreate );
try
FDestino.CopyFrom(FOrigem, FOrigem.Size ) ;
finally
FDestino.Free;
end;
finally
FOrigem.Free;
end;
End;

Nenhum comentário:

Postar um comentário