sfx.dfm

zip算法的源码

      object TabSheet2: TTabSheet
        Caption = 'Caption'
        object Label1: TLabel
          Left = 133
          Top = 115
          Width = 271
          Height = 16
          Caption = 'Caption of the Self Extracting Archive Program'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object CaptionEdit: TEdit
          Left = 29
          Top = 186
          Width = 524
          Height = 21
          MaxLength = 255
          TabOrder = 0
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'Custom Icon'
        object Image1: TImage
          Left = 32
          Top = 20
          Width = 32
          Height = 32
          AutoSize = True
        end
        object Label12: TLabel
          Left = 33
          Top = 171
          Width = 84
          Height = 13
          Caption = 'Custom Icon Path'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object IconIndexLabel: TLabel
          Left = 33
          Top = 123
          Width = 50
          Height = 13
          Caption = 'Icon Index'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Memo4: TMemo
          Left = 115
          Top = 48
          Width = 298
          Height = 45
          TabStop = False
          BorderStyle = bsNone
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'If you want to specify a different icon for the Self '
            'Extracting Archive, you may select it here.')
          ParentColor = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
        end
        object IconEdit: TEdit
          Left = 25
          Top = 186
          Width = 388
          Height = 21
          TabOrder = 1
          OnKeyPress = IconEditKeyPress
        end
        object GroupBox2: TGroupBox
          Left = 416
          Top = 99
          Width = 129
          Height = 121
          Caption = 'Icon select:'
          TabOrder = 2
          object Label2: TLabel
            Left = 41
            Top = 89
            Width = 68
            Height = 13
            Caption = 'Select an icon'
          end
          object DefIconRB: TRadioButton
            Left = 24
            Top = 19
            Width = 85
            Height = 17
            Caption = 'Default icon'
            Checked = True
            TabOrder = 0
            TabStop = True
            OnClick = DefIconRBClick
          end
          object AutoIconRB: TRadioButton
            Tag = 1
            Left = 24
            Top = 41
            Width = 97
            Height = 17
            Caption = 'AutoRun icon'
            TabOrder = 2
            TabStop = True
            OnClick = DefIconRBClick
          end
          object BitBtn2: TBitBtn
            Left = 6
            Top = 85
            Width = 31
            Height = 24
            TabOrder = 3
            OnClick = BitBtn2Click
            Glyph.Data = {
              86050000424D8605000000000000360000002800000016000000140000000100
              18000000000050050000120B0000120B000000000000000000006F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F00006F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              00006F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F00006F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F00006F6F6F6F6F6F6F6F6F737273494F493E463E40474040
              47404047404047404047404047404047403D443D4F544F7473746F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F00006F6F6F6F6F6F7777770F0F0F000000000000
              0000000000000000000000000000000000000000000000001215125359537473
              746F6F6F6F6F6F6F6F6F6F6F6F6F6F6F00006F6F6F6F6F6F7777770F0F0F0000
              00006262008484007F7F007F7F007F7F007F7F007F7F007F7F0087870051520F
              03015158517473746F6F6F6F6F6F6F6F6F6F6F6F00006F6F6F6F6F6F77777700
              00009CA39C2E2321005657008686007F7F007F7F007F7F007F7F007F7F007F7F
              008686005B5B0D01005056507372736F6F6F6F6F6F6F6F6F00006F6F6F6F6F6F
              7777770F000000D1D29BE4DD351F1C004B4B008787007F7F007F7F007F7F007F
              7F007F7F007F7F0084840060600B00004C524C7272726F6F6F6F6F6F00006F6F
              6F6F6F6F7777770000009C89831CFDFC8EE1DB442927004546008989007F7F00
              7F7F007F7F007F7F007F7F007F7F0083830063630F04047777776F6F6F6F6F6F
              00006F6F6F6F6F6F7777770F000000D1D29BC9C322F1F080E7E24B3D3A000000
              0000000000000000000000000000000000000000000000000F0F0F7777776F6F
              6F6F6F6F00006F6F6F6F6F6F7777770000009C89831CFDFC8EC5BF30EBE978CE
              C948E2DF60D8D460D8D448F6F38068640001005359537473746F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F00006F6F6F6F6F6F7777770F000000D1D29BC9C322F1F080
              CBC638E8E668D4D050DEDB50DEDB77E3DE00A6A81200005359537473746F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F00006F6F6F6F6F6F7777770000009C89831CFDFC
              8EE1DB4437350000000000000000000000000000000000002424247B7B7B6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F00006F6F6F6F6F6F6F6F6F7878781616
              160000000000004B4B4B7676766F6F6F6F6F6F6F6F6F6F6F6F6F6F6F67757594
              5252FF0000FF0000EC0F0F6577776F6F6F6F6F6F00006F6F6F6F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F697474905656FF0000EC0F0F6577776F6F6F6F6F6F00006F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F617A7ABF3232D024
              245F7B7B6775759A4E4EE91111816161F806066577776F6F6F6F6F6F00006F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F62
              7979AD3F3FFF0000FF0000DA1D1D607B7B6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              00006F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F00006F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F
              6F6F6F6F6F6F6F6F0000}
          end
          object OrigIconRB: TRadioButton
            Tag = 2
            Left = 24
            Top = 62
            Width = 96
            Height = 17
            Caption = 'Original icon'
            Enabled = False
            TabOrder = 1
            TabStop = True
            OnClick = DefIconRBClick
          end
        end
        object IconIndexEdit: TEdit
          Left = 25
          Top = 140
          Width = 45
          Height = 21
          Color = clBtnFace
          Enabled = False
          TabOrder = 3
          Text = '0'
        end
        object IconIndexUD: TUpDown
          Left = 70
          Top = 140
          Width = 14
          Height = 21
          Associate = IconIndexEdit
          Enabled = False
          Min = 0
          Max = 32767
          Position = 0
          TabOrder = 4
          Thousands = False
          Wrap = True
          OnClick = IconIndexUDClick
        end
      end
      object TabSheet4: TTabSheet
        Caption = 'Command line to Execute after Extraction'
        object Memo2: TMemo
          Left = 27
          Top = 2
          Width = 518
          Height = 187
          TabStop = False
          BorderStyle = bsNone
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Lines.Strings = (
            'Special Command Line Symbols :'
            
              'A pipe symbol '#39'|'#39' separates the program name from the argument l' +
              'ist.'
            
              'Two Arrows '#39'><'#39' will be replaced by the actual extract directory' +
              '.'
            
              'The following example runs notepad to display readme.txt in extr' +
              'act dir :'
            '"notepad|><readme.txt"'
            ''
            
              'You can also install .inf scripts, even with support for differe' +
              'nt sections depending on the '