Função pra compactar e descompactar arquivos em delphi

Boa tarde amigos delphianos.

Estou publicando duas procedures que serve pra compactar e descompactar vários arquivos em Delphi usando a lib.  zlib do próprio Delphi.

Só se deve ter o cuidado que o arquivo compactado só se consegue descompactar usando a função de descomprimir que abaixo estou publicando, isso porque a compactação é feita em modo de stream e função própria. Talvez tenha algum programa que consiga descompactar mas não foi testado.

Mas vamos as procedure.

procedure Comprimir(ArquivoCompacto: TFileName; Arquivos: array of TFileName);

var

  FileInName: TFileName;

  FileEntrada, FileSaida: TFileStream;

  Compressor: TCompressionStream;

  NumArq, I, Len, Size: Integer;

  Fim: Byte;

begin

  FileSaida := TFileStream.Create(ArquivoCompacto, fmCreate or fmShareExclusive);

  Compressor := TCompressionStream.Create(clMax, FileSaida);

  NumArq := Length(Arquivos);

  Compressor.Write(NumArq, SizeOf(Integer));

  try

    for I := Low(Arquivos) to High(Arquivos) do begin

      FileEntrada := TFileStream.Create(Arquivos[I], fmOpenRead and fmShareExclusive);

      try

        FileInName := ExtractFileName(Arquivos[I]);

        Len := Length(FileInName);

        Compressor.Write(Len, SizeOf(Integer));

        Compressor.Write(FileInName[1], Len);

        Size := FileEntrada.Size;

        Compressor.Write(Size, SizeOf(Integer));

        Compressor.CopyFrom(FileEntrada, FileEntrada.Size);

        Fim := 0;

        Compressor.Write(Fim, SizeOf(Byte));

      finally

        FileEntrada.Free;

      end;

    end;

  finally

    FreeAndNil(Compressor);

    FreeAndNil(FileSaida);

  end;

end;

procedure Descomprimir(ArquivoZip: TFileName; DiretorioDestino: string);

var

  NomeSaida: string;

  FileEntrada, FileOut: TFileStream;

  Descompressor: TDecompressionStream;

  NumArq, I, Len, Size: Integer;

  Fim: Byte;

begin

  FileEntrada := TFileStream.Create(ArquivoZip, fmOpenRead and fmShareExclusive);

  Descompressor := TDecompressionStream.Create(FileEntrada);

  Descompressor.Read(NumArq, SizeOf(Integer));

  try

    I := 0;

    while I < NumArq do begin

      Descompressor.Read(Len, SizeOf(Integer));

      SetLength(NomeSaida, Len);

      Descompressor.Read(NomeSaida[1], Len);

      Descompressor.Read(Size, SizeOf(Integer));

      FileOut := TFileStream.Create(

        IncludeTrailingBackslash(DiretorioDestino) + NomeSaida, 

        fmCreate or fmShareExclusive);

      try

        FileOut.CopyFrom(Descompressor, Size);

      finally

        FileOut.Free;

      end;

      Descompressor.Read(Fim, SizeOf(Byte));

      Inc(I);

    end;

  finally

    FreeAndNil(Descompressor);

    FreeAndNil(FileEntrada);

  end;

end;

Um exemplo de uso, seria:

var

  //vetor para guardar os nomes dos arquivos a ser compactados

  ListaArquivos: Array of TFileName;

begin

  //define o tamanho do vetor (qtde. de arquivos)

  SetLength(ListaArquivos, 2);

  //preenche a lista com os arquivos

  ListaArquivos[0] := 'C:\Windows\Bruma.bmp';

  ListaArquivos[1] := 'C:\Windows\Cafezinho.bmp';

  //executa a compactação, gerando o arquivo C:\Compactado.xxx

  Comprimir('C:\Compactado.xxx', ListaArquivos);

  //cria um diretório de teste para descompactarmos

  MkDir('C:\Descompactado');

  //executa a descompactação no diretório criado

  Descomprimir('C:\Compactado.xxx', 'C:\Descompactado');

end;