摘要： 源代码 在 http://wiki.freepascal.org/paszlib页面中。uses zipper;procedure TForm1.Button5Click(Sender: TObject);var Zipper: TZipper; i:integer;begin //http://wiki.freepascal.org/paszlib try Zipper := TZipper.Create; Zipper.FileName := 'E:\20120411\zip\zip.zip'; Zipper.Entries.AddFileEntry('E:\201 阅读全文