Ver Mensaje Individual
  #3  
Antiguo 22-12-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
Var
  Zip :TZipFile;
Begin
  Zip := TZipFile.Create;
  Try
    Zip.Open ('C:\Delphi\Ejemplos\TZipFile\Prueba.zip', zmRead);
    Zip.ExtractAll('C:\Delphi\Ejemplos\TZipFile');
  Finally
    Zip.Free;
  End;
End;

479 Mb no es grande. Lo que has leido es para archivos de más de 4 Gigas.
Responder Con Cita