mainfrm.dfm

UPXShell 压缩解压缩Windows下的exe和dll文件, 其原理基于加壳原理, UPX也是一个Windows下的可执行文件加壳工具

              Caption = 'N/A'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              Visible = False
            end
            object bvlRatio: TBevel
              Left = 224
              Top = 99
              Width = 46
              Height = 2
              Anchors = [akLeft, akTop, akRight]
              Style = bsRaised
              Visible = False
            end
            object lblRatio: TLabel
              Left = 237
              Top = 105
              Width = 20
              Height = 13
              Alignment = taRightJustify
              Caption = 'N/A'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              Visible = False
            end
            object lblRatioCap: TLabel
              Left = 16
              Top = 105
              Width = 83
              Height = 13
              Caption = 'Compression ratio'
              Visible = False
            end
            object pnlFileInfo: TPanel
              Left = 3
              Top = 3
              Width = 266
              Height = 24
              Caption = 'File Information'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
            end
          end
          object btnOpen: TButton
            Left = 16
            Top = 26
            Width = 75
            Height = 25
            Caption = 'Open'
            Default = True
            TabOrder = 1
            OnClick = btnOpenClick
          end
        end
      end
      object tbsCompress: TTabSheet
        Caption = 'Compress'
        ImageIndex = 1
        OnShow = tbsCompressShow
        object pnlCompress: TPanel
          Left = 0
          Top = 0
          Width = 390
          Height = 139
          Align = alClient
          BevelOuter = bvLowered
          TabOrder = 0
          object lblProgress: TLabel
            Left = 128
            Top = 16
            Width = 104
            Height = 13
            Caption = 'Compression Progress'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object lblProgressSize: TLabel
            Left = 128
            Top = 72
            Width = 100
            Height = 13
            Caption = 'Compressed File Size'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object btnGo: TButton
            Left = 12
            Top = 26
            Width = 97
            Height = 25
            Caption = 'Go!'
            Default = True
            TabOrder = 0
            OnClick = btnGoClick
          end
          object btnRun: TButton
            Left = 12
            Top = 108
            Width = 97
            Height = 25
            Caption = 'Run'
            TabOrder = 1
            Visible = False
            OnClick = btnRunClick
          end
          object pnlProgressSize: TPanel
            Left = 120
            Top = 88
            Width = 261
            Height = 29
            AutoSize = True
            BevelInner = bvLowered
            Caption = 'pnlProgressSize'
            TabOrder = 3
            object prbSize: TGauge
              Left = 2
              Top = 2
              Width = 257
              Height = 25
              BackColor = clBtnFace
              BorderStyle = bsNone
              ForeColor = 9981440
              ParentShowHint = False
              Progress = 0
              ShowHint = True
            end
            object sttDecomp: TStaticText
              Left = 2
              Top = 2
              Width = 0
              Height = 25
              AutoSize = False
              BorderStyle = sbsSunken
              Color = 13680800
              ParentColor = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
            end
          end
          object pnlProgress: TPanel
            Left = 120
            Top = 32
            Width = 261
            Height = 29
            AutoSize = True
            BevelInner = bvLowered
            Caption = 'pnlProgress'
            TabOrder = 2
            object prbCompress: TGauge
              Left = 2
              Top = 2
              Width = 257
              Height = 25
              BackColor = clBtnFace
              BorderStyle = bsNone
              ForeColor = 9981440
              ParentShowHint = False
              Progress = 0
              ShowHint = True
            end
          end
          object pnlAction: TPanel
            Left = 8
            Top = 54
            Width = 105
            Height = 49
            BevelOuter = bvNone
            TabOrder = 4
            object rgrAction: TRadioGroup
              Left = 0
              Top = 0
              Width = 105
              Height = 49
              Align = alClient
              TabOrder = 0
            end
            object chkUPX1: TRadioButton
              Tag = 1
              Left = 8
              Top = 8
              Width = 41
              Height = 17
              Caption = '1.25'
              TabOrder = 1
              OnClick = UPXVersionClick
            end
            object chkUPX2: TRadioButton
              Tag = 2
              Left = 56
              Top = 8
              Width = 41
              Height = 17
              Caption = '1.93'
              TabOrder = 2
              OnClick = UPXVersionClick
            end
            object chkDecomp: TRadioButton
              Left = 8
              Top = 26
              Width = 95
              Height = 17
              Caption = 'Decompress'
              TabOrder = 3
            end
          end
        end
      end
      object tbsOptions: TTabSheet
        Caption = 'Options'
        ImageIndex = 2
        OnShow = tbsOptionsShow
        object pnlOptions: TPanel
          Left = 0
          Top = 0
          Width = 390
          Height = 139
          Align = alClient
          BevelOuter = bvLowered
          TabOrder = 0
          object lblCompressLevel: TLabel
            Left = 219
            Top = 7
            Width = 107
            Height = 13
            Caption = 'Compression level:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblFaster: TLabel