sfx.dfm

zip算法的源码

object MakeSFX: TMakeSFX
  Left = 286
  Top = 249
  Width = 588
  Height = 409
  Caption = 'Make Self Extracting Archive'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 580
    Height = 108
    Align = alTop
    TabOrder = 0
    object CmdLineCB: TCheckBox
      Left = 157
      Top = 16
      Width = 244
      Height = 13
      Caption = 'Allow User to avoid running the command line'
      TabOrder = 1
    end
    object FileListCB: TCheckBox
      Left = 157
      Top = 34
      Width = 248
      Height = 13
      Caption = 'Allow User to modify the file list to be extracted'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
    object HideOverwriteCB: TCheckBox
      Left = 157
      Top = 52
      Width = 256
      Height = 13
      Caption = 'Hide the Overwrite Action group box at run time'
      TabOrder = 3
    end
    object DfltOverWriteGrp: TRadioGroup
      Left = 13
      Top = 7
      Width = 128
      Height = 95
      Caption = 'Default Overwrite Action'
      ItemIndex = 0
      Items.Strings = (
        'Ask User'
        'Always Overwrite'
        'Skip extraction')
      TabOrder = 0
    end
    object ExecBut: TButton
      Left = 483
      Top = 16
      Width = 78
      Height = 21
      Caption = 'Do It Now'
      Default = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = ExecButClick
    end
    object CancelBut: TButton
      Left = 483
      Top = 52
      Width = 78
      Height = 20
      Cancel = True
      Caption = 'Cancel'
      TabOrder = 5
      OnClick = CancelButClick
    end
    object AutoRunCB: TCheckBox
      Left = 157
      Top = 70
      Width = 152
      Height = 13
      Hint = 'Attention Filename should start with a '#39' ! '#39
      Caption = 'Create an AutoRun SFX'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = AutoRunCBClick
    end
    object NoMsgShowCB: TCheckBox
      Left = 157
      Top = 88
      Width = 272
      Height = 13
      Caption = 'Do Not show the success Msg after file extraction'
      Checked = True
      State = cbChecked
      TabOrder = 7
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 108
    Width = 580
    Height = 267
    Align = alClient
    TabOrder = 1
    object SFXPage: TPageControl
      Left = 1
      Top = 9
      Width = 578
      Height = 257
      ActivePage = TabSheet1
      Align = alBottom
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = 'Startup Message'
        object Label9: TLabel
          Left = 29
          Top = 171
          Width = 153
          Height = 13
          Caption = 'Message to show before starting'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object MsgEdit: TEdit
          Left = 25
          Top = 186
          Width = 524
          Height = 21
          MaxLength = 255
          TabOrder = 2
        end
        object Memo3: TMemo
          Left = 75
          Top = 20
          Width = 422
          Height = 57
          TabStop = False
          BorderStyle = bsNone
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            
              'Here you can enter a message that will be displayed before the m' +
              'ain '
            'extraction dialog.'
            'You can also specifiy the type of the message box:'
            ''
            
              '- Confirmation : the messagebox shows the buttons '#39'Yes'#39' and '#39'No'#39 +
              '. if the '
            'User presses '#39'No'#39', sfx will stop.'
            
              '- Information : the messagebox shows the buttons '#39'OK'#39' and '#39'Cance' +
              'l'#39'. if '
            'the User presses '#39'Cancel'#39', sfx will stop.'
            
              '- Standard : the messagebox shows an '#39'OK'#39' button. The User canno' +
              't '
            'cancel starting the SFX application.')
          ParentColor = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
        end
        object GroupBox1: TGroupBox
          Left = 24
          Top = 88
          Width = 525
          Height = 57
          Caption = 'Message Type:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object OkCancelRB: TRadioButton
            Left = 156
            Top = 28
            Width = 177
            Height = 13
            Caption = 'Information, Ok, Cancel buttons'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            TabStop = True
          end
          object YesNoRB: TRadioButton
            Left = 348
            Top = 28
            Width = 169
            Height = 13
            Caption = 'Confirmation, Yes, No buttons'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            TabStop = True
          end
          object OkBttnRB: TRadioButton
            Left = 17
            Top = 28
            Width = 124
            Height = 13
            Caption = 'Standard, Ok button'
            Checked = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            TabStop = True
          end
        end
      end