谁有做过在Delphi中压缩整个目录成一个文件，救急！给100分！

Question

我现在要做服务端控制客户端来接收文件，但是客户端那边是目录，我想把客户端的目录压缩成一个文件，然后通过socket进行传送这个文件到服务端指定目录，但是现在不知道如何压缩目录成一个文件，请各位大侠多多指教，给100分！

Answer 1

对方有RAR的话，直接调用
winrar命令行参考
  rar a -o+ c:\11.mdb c:\temp\myback.rar不然用第三方压缩控件VCLZip是不是眼花，还是又有个帖子

Answer 2

补充一下一楼:  {--------------压缩----------------------}
  htys:='d:\tmp_data.rar';
  dbpath := 'd:\tmp';
  aa:='winrar.exe a -mm -r '+ htys + ' ' + dbpath + '\htys';
  if winexec(pchar(aa),1)<=31 then
  begin
    messagebox(handle,'压缩操作失败！','提示信息',0);
    exit;
  end;  {-------------解压缩----------------------}
  file_name:='d:\htys\tmp_data.rar';
  dbpath := 'd:\tmp';
  aa:='winrar e -o+ '+file_name+' '+dbpath;
  if not fileexists(file_name) then
  begin
    messagebox(handle,pchar(file_name+'文件不存在，无法进行解压缩操作！'),'提示信息',0);
    exit;
  end;  if winexec(pchar(aa),sw_hide)<=31 then
  begin
    messagebox(handle,'解压缩操作失败！','提示信息',0);
    exit;
  end;
//VCLZip控件VCLZip1.FilesList.Add('...'); //  
VCLZip1.ZipName := ...
  Try
    VCLZip1.Zip;      //压缩文件
  Except
    Application.MessageBox('压缩失败', '错误', MB_OK);  
  End;