VclZip使用

来源：互联网发布：linux 大文件查找编辑：程序博客网时间：2024/06/07 10:56

VclZip使用

procedure TForm1.Button1Click(Sender: TObject);
var
ZippedCount: Integer;
begin
with VCLZip1 do
begin
    ZipName:= 'c:/test';
    Password:= 'Simon.Hu';
    Recurse:= True;

FilesList.Add('c:/dell.doc');

try
ZippedCount:= Zip;

      MessageBox(
                 Handle,
                 PChar('压缩完毕！ ' + #13 + '共压缩了 ' + IntToStr(ZippedCount) + ' 个文件。 '),
                 '提示',
                 MB_OK + MB_ICONINFORMATION
                );
    except
      on E: Exception do
      begin
        MessageBox(
                   Handle,
                   PChar('压缩失败！ ' + '失败原因：' + E.Message + ' '),
                   '错误',
                   MB_OK + MB_ICONERROR
                  );
        Exit;
      end;
    end; //End Try
end; //End With
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
DestPath:String;
UnZippedCount:integer;
begin
with VCLUnZip1 do
begin
ZipName:= 'c:/test.zip';
Password:= 'Simon.Hu';

    ReadZip;
    for i:= 0 to Count - 1 do
      Memo1.Lines.Add(Filename[i] + #9 + Pathname[i]);

    DestPath:='c:/1';
    DestDir:= DestPath;
    DoAll:= True;
    RecreateDirs:= True;
    RetainAttributes:= True;

    try
      UnZippedCount:= UnZip;
      MessageBox(
                 Handle,
                 PChar('解压完毕！ ' + #13 + '共解压了 ' + IntToStr(UnZippedCount) + ' 个文件。 '),
                 '提示',
                 MB_OK + MB_ICONINFORMATION
                );
    except
      on E: Exception do
      begin
        MessageBox(
                   Handle,
                   PChar('解压失败！ ' + '失败原因：' + E.Message + ' '),
                   '错误',
                   MB_OK + MB_ICONERROR
                  );
        Exit;
      end;
    end; //End Try
end; //End With
end;