Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > OOP
Register FAQ Members List Calendar Guía de estilo Today's Posts

Coloboración Paypal con ClubDelphi

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 29/11/2005
white_zombie's Avatar
[white_zombie] white_zombie is offline
Miembro Premium
 
Join Date: Nov 2005
Location: Zaragoza - España
Posts: 187
Poder: 21
white_zombie Va por buen camino
Comprimir archivos con turbo power abbrevia

Hola a todos, tengo un problema al comprimir archivos con abbrevia y es que al añadir los archivos al .zip me añade no solo los archivos sino todas las carpetas de la ruta que escribo.
El codigo no es exactamente este, pero como ejemplo vale:

Código Delphi [-]
 procedure TForm1.Button2Click(Sender: TObject);
 var
    AbZipKit: TAbZipKit;
  begin
    AbZipKit := TAbZipKit.Create(Self);
    try
      AbZipKit.FileName := 'c:\copia.zip';
      AbZipKit.StoreOptions := [soRecurse];
      abzipkit.CompressionMethodToUse:=smBestMethod;
      abzipkit.DeflationOption:=doMaximum ;
      AbZipKit.AddFiles(C:\Documents and Settings\Usuario\Mis documentos\config.ini, faAnyFile );
      AbZipKit.CloseArchive;
      AbZipKit.Save;
    finally
      AbZipKit.Free;
      showmessage('Operacion Completada');
    end;
  end;
Por si no me he explicado bien, lo que pasa es que añade el fichero config.ini pero dentro de las carpetas Documents and Settings\Usuario\Mis documentos.
Lo que quiero saber es como se puede hacer para que me añada el archivo pero sin las carpetas.

Gracias por adelantado por las posibles respuestas.

Last edited by dec : 29/11/2005 at 10:48. Reason: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Reply With Quote
 



Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump


All times are GMT +2. The time now is 01:52.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi