Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 943 fois - Téléchargée 31 fois
uses AbGZTyp, //decompression gzip AbZipper, AbBase, AbBrowse, AbZBrows, AbUnzper; // zip // exemple: ugz('archive.tar.gz'); procedure ugz(sNomArchive : string); var gz : TAbGZipArchive; begin gz := TAbGZipArchive.Create(sNomArchive, fmOpenRead); gz.Load(); gz.ExtractAt(0, ChangeFileExt(sNomArchive,'')); // archive.tar gz.Destroy; end; // compression zip procedure zz(sNomArchive : string); begin AbZipper1.FileName := sNomArchive; AbZipper1.OpenArchive(AbZipper1.FileName); AbZipper1.BaseDirectory := 'c:\Temp'; AbZipper1.AddFiles('*.*',-1); AbZipper1.CloseArchive; end; //decompression zip procedure uz(sNomArchive : string); begin if Not FileExists(sNomArchive) then exit; AbUnZipper1.FileName := sNomArchive; AbUnZipper1.OpenArchive(AbUnZipper1.FileName); AbUnZipper1.BaseDirectory := 'C:\Temp'; AbUnZipper1.ExtractFiles('boot.ini'); end;
je vais faire un prog avec ton source
merci
c tres util
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.