unit1.dfm

vb压缩源码

object MainForm: TMainForm
  Left = 207
  Top = 144
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'wfZip Dll demo'
  ClientHeight = 372
  ClientWidth = 431
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 7
    Top = 6
    Width = 415
    Height = 123
    Caption = #21387#32553#25991#20214
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TStaticText
      Left = 39
      Top = 27
      Width = 43
      Height = 20
      Caption = #28304#25991#20214':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object Label2: TStaticText
      Left = 39
      Top = 53
      Width = 55
      Height = 20
      Caption = #21387#32553#25991#20214':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object edtSourceFile: TEdit
      Left = 95
      Top = 24
      Width = 234
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object btnBrowseSourceFile: TBitBtn
      Left = 332
      Top = 22
      Width = 51
      Height = 25
      Caption = #27983#35272
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnBrowseSourceFileClick
    end
    object btnBrowseTargetFile: TBitBtn
      Left = 332
      Top = 47
      Width = 51
      Height = 25
      Caption = #27983#35272
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnBrowseTargetFileClick
    end
    object edtTargetFile: TEdit
      Left = 95
      Top = 49
      Width = 234
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object btnZip: TBitBtn
      Left = 186
      Top = 83
      Width = 51
      Height = 25
      Caption = #21387#32553
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btnZipClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 7
    Top = 138
    Width = 415
    Height = 123
    Caption = #35299#21387#32553#25991#20214
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label3: TStaticText
      Left = 39
      Top = 28
      Width = 55
      Height = 20
      Caption = #21387#32553#25991#20214':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object Label4: TStaticText
      Left = 39
      Top = 53
      Width = 52
      Height = 20
      Caption = #35299#21387#30446#24405
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object EdtZipFileName: TEdit
      Left = 95
      Top = 24
      Width = 234
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object btnBrowseZipFile: TBitBtn
      Left = 332
      Top = 22
      Width = 51
      Height = 25
      Caption = #27983#35272
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnBrowseZipFileClick
    end
    object btnBrowseUnZipPath: TBitBtn
      Left = 332
      Top = 47
      Width = 51
      Height = 25
      Caption = #27983#35272
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnBrowseUnZipPathClick
    end
    object edtUnZipPath: TEdit
      Left = 95
      Top = 49
      Width = 234
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object btnUnZip: TBitBtn
      Left = 186
      Top = 83
      Width = 51
      Height = 25
      Caption = #35299#21387#32553
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btnUnZipClick
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 269
    Width = 415
    Height = 95
    BevelInner = bvLowered
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Image_Icon: TImage
      Left = 19
      Top = 11
      Width = 36
      Height = 35
      Picture.Data = {
        055449636F6E0000010001002020100001000400E80200001600000028000000
        2000000040000000010004000000000000020000000000000000000000000000
        0000000000000000000080000080000000808000800000008000800080800000
        80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
        FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7777777777777777777777
        77777777FDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD7FDDDDDDDDDDDDDDDDDDDDDDD
        DDDDDDD7FDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD7FD0000000000000000000000
        000000D7FD0000000000000000000000000000D7FD0000000000000000000000
        000000D7FD0FFFFFFFFFFFFFFFFFFFFFFFFFF0D7FD0FFCCCCCCCCCCCCCCCCCCC
        CCCFF0D7FD0FFCCCCCCCCCCCCCCCCCCCCCCFF0D7FD0FFCCCCCCCCCCCCCCCCCCC
        CCCFF0D7FD0FFCCCFFFFFFFFFFFFFFFFFFFFF0D7FD0FFFCCCFFFFFFFCCFFCCFF
        FFFFF0D7FD0FFFFCCCFFFFFFCCFFCCFFFFFFF0D7FD0FFFFFCCCFFFFFCCFFCCFF
        FFFFF0D7FD0FFFFFFCCCFFFFCCFFCCFFFFFFF0D7FD0FFFFFFFCCCFFFCCFFCCCC
        CCFFF0D7FD0FFFFFFFFCCCFFCCFFCCCCCCFFF0D7FD0FFFFFFFFFCCFFCCFFCCFF
        FCCFF0D7FD0FFCCCCCCCCCFFCCFFCCFFFCCFF0D7FD0FFCCCCCCCCCFFCCFFCCCC
        CCCFF0D7FD0FFCCCCCCCCCFFCCFFCCCCCCFFF0D7FD0FFFFFFFFFFFFFFFFFFFFF
        FFFFF0D7FD0000000000000000000000000000D7FD0000000000000000000000
        000000D7FDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD7FDDDDDDDDDDDDDDDDDDDDDDD
        DDDDDDDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF00000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000}
    end
    object Label_Website: TStaticText
      Left = 70
      Top = 70
      Width = 123
      Height = 20
      Caption = #32593#31449':www.wfsoft.com'
      TabOrder = 0
    end
    object Label_Free: TStaticText
      Left = 24
      Top = 49
      Width = 29
      Height = 36
      AutoSize = False
      Caption = #20813#36153#13#10#36719#20214
      TabOrder = 1
    end
    object Label_Software: TStaticText
      Left = 70
      Top = 10
      Width = 81
      Height = 20
      Caption = #36719#20214':wfZip Dll'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object Label_Version: TStaticText
      Left = 70
      Top = 30
      Width = 153
      Height = 20
      Caption = #29256#26412':1.4 ( build 20060921 )'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object Label_Author: TStaticText
      Left = 70
      Top = 50
      Width = 67
      Height = 20
      Caption = #20316#32773':'#32993#27946#31077
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
  end
  object odgOpenFile: TOpenDialog
    Filter = 'All files ( *.* )|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Title = #35831#36873#25321
    Left = 13
    Top = 108
  end
  object sdgSaveFile: TSaveDialog
    Left = 47
    Top = 110
  end
end