呵呵，用VCLZip控件呀，非常出名的。
你是想用自己的程序实现压缩和解压缩么？如果是，就用VCLZip就可以了。
压缩：
; With VCLZip1 do begin
; ; ZipName :=SaveDialog1.FileName;
; ; FilesList.Clear;
; ; FilesList.Append('C:/try.db');
; ; FilesList.Append('C:/Demo.exe');
; ; Password:='hello';
; ; PackLevel := 9;
; ; try
; ; ; Zip;
; ; Except
; ; ; MessageDlg('文件压缩失败！',mtERROR,[mbOk],0);
; ; ; Close;
; ; end;
; end;
在这里得到完成的提示：
procedure TBFForm.VCLZip1ZipComplete(Sender: TObject; FileCount: Integer);
begin
; Showmessage('压缩——完成！');
end;
解压缩：
; With VCLunzip1 do begin
; ; MultiMode:=mmSpan;
; ; ZipName:=OpenDialog1.FileName;
; ; DestDir:=您的路径;
; ; Password:='hello';
; ; DoAll:=True;
; ; try
; ; ; ReadZip;
; ; ; UnZip;
; ; Except
; ; ; MessageDlg('文件解压缩失败！',mtInformation,[mbOk],0);
; ; ; Close;
; ; ; Exit;
; ; end;
; end;
