Extract كردن فايل Zip

با سلام :46:
من مي خوام با استفاده از دلفي يه فايل .zip رو كه داخلش چند تا فايل ديگس Extract كنم (از .zip در بيارم) و اگه بشه درصد Extract شدنشم توي يه ProgressBar نشون بدم. :20:
اگه ميشه راهنمايي كنين! :14:
ممنون :11:

سلام

کد:

---

http://forum.p30world.com/showthread.php?t=124182&highlight=vclzip

---

سلام

اگر از كامپوننت VCLZip استفاده مي كنيد اين كامپوننت داراي راهنما است كه نحوه كار را كامل توضيح داده است.

ولي در كل نحوه زيپ كردن چندتا فايل به اين صورت است :

کد:

---

  VCLZip1.ZipName := 'C:\myZip.zip';
  VCLZip1.Password := 'PASSWORD';
  VCLZip1.DestDir := 'C:\';
  VCLZip1.RootDir := 'C:\'
  VCLZip1.FilesList.Add('*.*');
  VCLZip1.ZipComment := memo2.Text;
  VCLZip1.Zip;

---

براي آنزيپ كردن :

کد:

---

VCLUnZip1.ZipName := 'C:\myZip.zip';
VCLUnZip1.DestDir := 'C:\';
VCLUnZip1.UnZip;

---