Zip

//需要引用单元 'Zip'
//压缩
Var
  Zf: TZipFile;
Begin
  Zf.ZipDirectoryContents('F:\Test.Zip', 'F:\Test斗战神\'); 将 F:\Test斗战神\ 文件夹内所以文件及子目录压缩到Test.Zip
end;
//解压
Var
  Zf: TZipFile;
Begin
  Zf.ExtractZipFile('D:\斗战神\Cross\Source.Zip', 'D:\斗战神\Cross\Source\'); 将 Source.Zip 解压到 D:\斗战神\Cross\Source\
end;