Buscar

Copia arquivos (fácil e rápido)

Código

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;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Arquivos
Adicionada dia: 26/07/03
Por: Amilton Maciel
Visualizada: 4584 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009