Delphi zlib目录（保存路径）

我试过不少代码，但似乎没有一个能按我想要的方式工作

如何在保存所有路径的同时将zlib（无需压缩，只需将所有文件添加到数据块即可）文件夹中的所有文件和子目录（但不是文件夹本身），以便将它们提取到所有正确的路径，而不是将所有内容转储到同一文件夹中

我有jvcl代码，但它不压缩子文件夹

procedure TJvZLibMultipleMainForm.btnCompressClick(Sender: TObject);
var
  z : TJvZlibMultiple;
begin
  ForceDirectories(ExtractFilePath(edFilename.Text));
  z := TJvZlibMultiple.Create(nil);
  Screen.Cursor := crHourGlass;
  try
    lblFilename.Caption := '';
    pbProgress.Position := 0;
    z.OnProgress := DoProgress;
    z.OnCompressingFile := DoCompressFile;
    z.CompressDirectory(edSrcFolder.Text,false,edFilename.Text);
  finally
    z.Free;
    Screen.Cursor := crDefault;
  end;
  pbProgress.Position := 0;
  lblFilename.Caption := 'Ready';
end;

---

如果要压缩子文件夹，必须更改此行

z.CompressDirectory(edSrcFolder.Text,False,edFilename.Text);

到

激活压缩递归

// compresses a Directory (recursing if Recursive is true)
// and saves the compressed result to FileName
procedure CompressDirectory(Directory: string; Recursive: Boolean; FileName: string); overload;

---

再见。

我是这个网站的新手，有没有办法让我给你+1，投票或者任何影响你排名的东西？愚蠢的问题：按钮在哪里？：-）我只看到“回答你的问题”，通知每日任何新的答案，等等，在RRUZ的答案旁边应该有一个复选标记。单击该按钮，它将变为绿色。

// compresses a Directory (recursing if Recursive is true)
// and saves the compressed result to FileName
procedure CompressDirectory(Directory: string; Recursive: Boolean; FileName: string); overload;