Ver Mensaje Individual
  #4  
Antiguo 22-11-2014
Avatar de danielmj
danielmj danielmj is offline
Miembro
 
Registrado: jun 2011
Posts: 383
Reputación: 13
danielmj Va por buen camino
Hola casimiro, ya lo encontre, me baje un pdf de sourceforge y ya está funcionando, la forma es:

Código Delphi [-]
..
zip.FileName:= 'C:\prueba\prueba.zip';
  zip.AddFilesEx('c:\prueba\parametro1','parametro2',0);
  zip.Save;
  zip.Free;
..

La linea en rojo es la principal aquí, no sé si habrá mas formas pero de momento esta ha funcionado. A saber:
Parametro1 Sería el archivo o archivos a comprimir según su extensión. Puede ser "C:\prueba.txt" o "*.txt"
Parametro2, son los archivos que no se deben tocar igualmente según su extensión. Por ejemplo "*.pas"
El valor 0, es para indicar que no toque ninguno de los archivos distintos a Parametro1

Bueno, espero haberme explicado y si estoy equivocado en algo que me corrija.
Un saludo.
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes.

Última edición por danielmj fecha: 22-11-2014 a las 23:45:37.
Responder Con Cita