uzipdemo.~dfm

可以压缩和解压一个文件夹（里面有多个文件）或者一个文件！

object Form1: TForm1
  Left = 320
  Top = 273
  Width = 622
  Height = 465
  Caption = 'ZIP file Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 5
    Top = 8
    Width = 594
    Height = 403
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Compression'
      object GroupBox1: TGroupBox
        Left = 5
        Top = 7
        Width = 581
        Height = 317
        Caption = 'Add files'
        TabOrder = 0
        object Memo1: TMemo
          Left = 10
          Top = 27
          Width = 565
          Height = 276
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
      object Button1: TButton
        Left = 504
        Top = 338
        Width = 75
        Height = 25
        Caption = 'Make a Zip'
        TabOrder = 1
        OnClick = Button1Click
      end
      object Button3: TButton
        Left = 234
        Top = 338
        Width = 91
        Height = 25
        Caption = 'Clear File List'
        TabOrder = 2
        OnClick = Button3Click
      end
      object LabeledEdit1: TLabeledEdit
        Left = 45
        Top = 340
        Width = 62
        Height = 21
        Color = clScrollBar
        EditLabel.Width = 16
        EditLabel.Height = 13
        EditLabel.Caption = 'File'
        LabelPosition = lpLeft
        ReadOnly = True
        TabOrder = 3
      end
      object LabeledEdit2: TLabeledEdit
        Left = 155
        Top = 340
        Width = 62
        Height = 21
        Color = clScrollBar
        EditLabel.Width = 29
        EditLabel.Height = 13
        EditLabel.Caption = 'Folder'
        LabelPosition = lpLeft
        ReadOnly = True
        TabOrder = 4
      end
      object Edit1: TEdit
        Left = 368
        Top = 340
        Width = 121
        Height = 21
        TabOrder = 5
        Text = 'Edit1'
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Decompression'
      ImageIndex = 1
      object Button2: TButton
        Left = 485
        Top = 342
        Width = 83
        Height = 25
        Caption = 'Release a Zip'
        TabOrder = 0
        OnClick = Button2Click
      end
      object GroupBox2: TGroupBox
        Left = 4
        Top = 36
        Width = 581
        Height = 291
        Caption = 'files'
        TabOrder = 1
        object Memo2: TMemo
          Left = 6
          Top = 19
          Width = 559
          Height = 264
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
      object Button4: TButton
        Left = 496
        Top = 11
        Width = 75
        Height = 25
        Caption = '...'
        TabOrder = 2
        OnClick = Button4Click
      end
      object LabeledEditZipFile: TLabeledEdit
        Left = 71
        Top = 14
        Width = 407
        Height = 21
        Color = clScrollBar
        EditLabel.Width = 55
        EditLabel.Height = 13
        EditLabel.Caption = 'Select a file'
        LabelPosition = lpLeft
        ReadOnly = True
        TabOrder = 3
      end
      object Edit2: TEdit
        Left = 346
        Top = 344
        Width = 121
        Height = 21
        TabOrder = 4
        Text = 'Edit1'
      end
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 47
    Top = 116
  end
  object OpenDialog1: TOpenDialog
    Left = 48
    Top = 85
  end
end