unit1.~dfm

通过流的方式对文件进行压缩和解压

object Form1: TForm1
  Left = 321
  Top = 224
  BorderStyle = bsDialog
  Caption = #21387#32553#19982#35299#21387
  ClientHeight = 301
  ClientWidth = 509
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 509
    Height = 145
    Align = alTop
    Caption = #21387#32553
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 24
      Width = 36
      Height = 12
      Caption = #28304#25991#20214
    end
    object Label2: TLabel
      Left = 20
      Top = 53
      Width = 48
      Height = 12
      Caption = #20445#23384#36335#24452
    end
    object BtnZipSource: TSpeedButton
      Left = 466
      Top = 16
      Width = 23
      Height = 22
      Caption = '...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = BtnZipSourceClick
    end
    object btnZipSave: TSpeedButton
      Left = 466
      Top = 48
      Width = 23
      Height = 22
      Caption = '...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = btnZipSaveClick
    end
    object PsZip: TGauge
      Left = 25
      Top = 101
      Width = 369
      Height = 17
      ForeColor = clBlue
      Progress = 0
    end
    object EditZipSource: TEdit
      Left = 84
      Top = 19
      Width = 373
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 0
    end
    object EditZipSave: TEdit
      Left = 84
      Top = 48
      Width = 373
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 1
    end
    object btnZip: TButton
      Left = 408
      Top = 96
      Width = 75
      Height = 25
      Caption = #21387#32553
      TabOrder = 2
      OnClick = btnZipClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 145
    Width = 509
    Height = 156
    Align = alClient
    Caption = #35299#21387
    TabOrder = 1
    object Label3: TLabel
      Left = 32
      Top = 24
      Width = 36
      Height = 12
      Caption = #28304#25991#20214
    end
    object Label4: TLabel
      Left = 20
      Top = 53
      Width = 48
      Height = 12
      Caption = #20445#23384#36335#24452
    end
    object btnUnZipSource: TSpeedButton
      Left = 466
      Top = 16
      Width = 23
      Height = 22
      Caption = '...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = btnUnZipSourceClick
    end
    object btnUnZipSave: TSpeedButton
      Left = 466
      Top = 48
      Width = 23
      Height = 22
      Caption = '...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = btnUnZipSaveClick
    end
    object PsUnZip: TGauge
      Left = 25
      Top = 101
      Width = 369
      Height = 17
      ForeColor = clBlue
      Progress = 0
    end
    object EditUnZipSource: TEdit
      Left = 84
      Top = 19
      Width = 373
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 0
    end
    object EditUnZipSave: TEdit
      Left = 84
      Top = 48
      Width = 373
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 1
    end
    object btnUnZip: TButton
      Left = 408
      Top = 96
      Width = 75
      Height = 25
      Caption = #35299#21387
      TabOrder = 2
      OnClick = btnUnZipClick
    end
  end
  object openZip: TOpenDialog
    Left = 432
    Top = 64
  end
  object openUnZip: TOpenDialog
    Left = 432
    Top = 209
  end
end