Crear un archivo zip

[Grefu]

Buenas.
Alguien sabe que código debo incluir para crear un nuevo archivo zip.
Estoy usando Abbrevia de TurboPower. Por mas ke miro en los ejemplos no veo como crearlo. Solo como añadir archivos a uno ya creado o descomprimirlos.
Un saludo y gracias.

[dec]

Hola,

Basta conque indiques la ruta del archivo Zip a crear. Para eso has de utilizar la propiedad "FileName" del componente "TAbZipKit", por ejemplo. En cuanto guardes el archivo "Zip" (mediante el método "CloseArchive"), creo que sin depender de si añades o no archivos al "Zip" este último será creado allá donde indicaras en su propiedad "FileName". Haz unas cuantas pruebas, creo no equivocarme, puesto que he hecho uso de los componentes que mencionas en más de una ocasión.

[dec]

Hola,

Vale. Olvídate de todo lo que dije anteriormente: de memoria, y mal. Acabo de comprobar que basta con algo así para crear un archivo "Zip":

Código Delphi [-]
  AbZipKit1.OpenArchive('C:\archivo.zip');

Actualización: Con lo siguiente también funciona:

Código Delphi [-]
 AbZipKit1.FileName := 'C:\archivo.zip';

No tendrás que usar el método "CloseArchive", no en este caso, al menos. Si el archivo indicado no existe, este será creado, de no ser así, se tomará la referencia al archivo "Zip" existente, es decir, podrás comenzar a trabajar con él, añadiendo archivos, extrayéndolos, etc., etc., etc.

[Grefu]

ok. Gracias. Ya lo logré.
Al final he usado lo de Filename para crearlo y close para cerrarlo porque quería cambiarle la extensión y no me dejaba estando abierto