摘要: 源代码 在 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 阅读全文
posted @ 2012-04-11 16:18 lukisy 阅读(294) 评论(0) 推荐(0) 编辑