main.dfm

zip算法的源码

object MainForm: TMainForm
  Left = 332
  Top = 239
  Width = 580
  Height = 338
  Caption = 'Self Install Zip'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 572
    Height = 89
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 8
      Width = 237
      Height = 13
      Caption = 'A small example of a self-installing Builder program.'
    end
    object Label2: TLabel
      Left = 13
      Top = 50
      Width = 74
      Height = 13
      Caption = 'Current Zip File:'
    end
    object ZipFName: TLabel
      Left = 11
      Top = 67
      Width = 43
      Height = 13
      Caption = '<none>'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 12
      Top = 24
      Width = 290
      Height = 13
      Caption = 'Supports cmd line zip filename args, and /install and /uninstall'
    end
    object OpenBut: TButton
      Left = 464
      Top = 4
      Width = 75
      Height = 21
      Caption = '&Open Zip'
      TabOrder = 0
      OnClick = OpenButClick
    end
    object CancelBut: TButton
      Left = 464
      Top = 60
      Width = 75
      Height = 21
      Caption = '&Close'
      TabOrder = 2
      OnClick = CancelButClick
    end
    object InstBut: TButton
      Left = 464
      Top = 32
      Width = 75
      Height = 21
      Caption = '&Install Menu'
      TabOrder = 1
      OnClick = InstButClick
    end
  end
  object StringGrid1: TStringGrid
    Left = 0
    Top = 89
    Width = 572
    Height = 215
    Align = alClient
    ColCount = 4
    FixedCols = 0
    RowCount = 2
    TabOrder = 1
    ColWidths = (
      258
      87
      95
      124)
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'Zip'
    Filter = 'Zip files|*.zip|All files|*.*'
    Title = 'Choose a Ziped file'
    Left = 370
    Top = 5
  end
  object ZipDir1: TZipBuilder
    VersionInfo = '1.70 '
    AddStoreSuffixes = [assGIF, assPNG, assZ, assZIP, assZOO, assARC, assLZH, assARJ, assTAZ, assTGZ, assLHA, assRAR, assACE, assCAB, assGZ, assGZIP, assJAR]
    SFXOptions = [SFXCheckSize]
    SFXPath = 'ZipSFX.bin'
    SFXCaption = 'Self-extracting Archive'
    Left = 405
    Top = 5
  end
end