install.dfm

zip算法的源码

object InstForm: TInstForm
  Left = 273
  Top = 243
  Width = 411
  Height = 281
  Caption = 'Install/Uninstall'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 23
    Top = 3
    Width = 343
    Height = 13
    Caption = 'Warning: This is a preliminary test program!  No Guarantees!'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 218
    Top = 183
    Width = 163
    Height = 13
    Caption = 'Un-install does not delete any files.'
  end
  object ProgramNameLabel: TLabel
    Left = 96
    Top = 209
    Width = 148
    Height = 13
    Caption = '<program path and name>'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object Label2: TLabel
    Left = 17
    Top = 209
    Width = 75
    Height = 13
    Caption = 'This Program is:'
  end
  object GroupBox1: TGroupBox
    Left = 17
    Top = 22
    Width = 197
    Height = 174
    Caption = 'Install/Un-install Options'
    TabOrder = 0
    object AssocCB: TCheckBox
      Left = 21
      Top = 129
      Width = 120
      Height = 22
      Caption = '.zip Association'
      TabOrder = 6
    end
    object SendToCB: TCheckBox
      Left = 21
      Top = 91
      Width = 150
      Height = 22
      Caption = 'Explorer "Send To" link'
      TabOrder = 4
    end
    object StartMenuCB: TCheckBox
      Left = 21
      Top = 15
      Width = 97
      Height = 22
      Caption = 'Menu Icon'
      TabOrder = 0
      OnClick = StartMenuCBClick
    end
    object DesktopCB: TCheckBox
      Left = 21
      Top = 72
      Width = 107
      Height = 22
      Caption = 'Desktop Icon'
      TabOrder = 3
    end
    object RegistryCB: TCheckBox
      Left = 21
      Top = 110
      Width = 170
      Height = 22
      Caption = 'Application Registry Entries'
      TabOrder = 5
    end
    object StartMenuRB: TRadioButton
      Left = 35
      Top = 34
      Width = 101
      Height = 22
      Caption = 'Start Menu'
      TabOrder = 1
    end
    object ProgramRB: TRadioButton
      Left = 35
      Top = 53
      Width = 111
      Height = 22
      Caption = 'Programs menu'
      Checked = True
      Color = clBtnFace
      ParentColor = False
      TabOrder = 2
      TabStop = True
    end
    object KillCB: TCheckBox
      Left = 21
      Top = 148
      Width = 160
      Height = 22
      Caption = 'Remove EXE after install'
      TabOrder = 7
    end
  end
  object InstBut: TButton
    Left = 296
    Top = 30
    Width = 75
    Height = 25
    Caption = '&Install'
    TabOrder = 1
    OnClick = InstButClick
  end
  object UnInstBut: TButton
    Left = 296
    Top = 74
    Width = 75
    Height = 25
    Caption = '&Un-install'
    TabOrder = 2
    OnClick = UnInstButClick
  end
  object CancelBut: TButton
    Left = 296
    Top = 118
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 3
    OnClick = CancelButClick
  end
end