main.dfm

文件加密发生法

object frm_Main: Tfrm_Main
  Left = 323
  Top = 213
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'EXE'#25991#20214#21152#23494#22120
  ClientHeight = 299
  ClientWidth = 415
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 280
    Width = 415
    Height = 19
    Panels = <
      item
        Bevel = pbNone
        Style = psOwnerDraw
        Width = 20
      end
      item
        Width = 50
      end>
    ParentShowHint = False
    ShowHint = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 415
    Height = 280
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 1
      Top = 49
      Width = 413
      Height = 230
      ActivePage = TabSheet1
      Align = alClient
      MultiLine = True
      TabOrder = 0
      TabWidth = 97
      object TabSheet1: TTabSheet
        Caption = #25991#20214#21152#23494#35299#23494
        object Button_OpenFile: TSpeedButton
          Left = 343
          Top = 32
          Width = 21
          Height = 21
          Hint = #25171#24320#25991#20214
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
            DDDDDDDDDDDDDDDDDDDDDD0000000000DDDDDD00333333330DDDDD0B03333333
            30DDDD0BB0333333330DDD0BBB000000000DDD0BBBBBBBB0DDDDDD0BBB000000
            DDDDDDD000DDDDDDDDDDDDDDDDDDDDD000DDDDDDDDDDDDDD00DDDDDDDDD0DDD0
            D0DDDDDDDDDD000DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
          ParentShowHint = False
          ShowHint = True
          OnClick = Button_OpenFileClick
        end
        object Button_Directory: TSpeedButton
          Left = 364
          Top = 32
          Width = 21
          Height = 21
          Hint = #20999#25442#21040#30446#24405
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
            DDDDD0000000000000DDD8777777777770DDDF888888888870DDDF8888888888
            70DDDF899888888870DDDFFFFFFFFFFF88DDDDDDDDD0000000DDDD0DDD0FBFBF
            BF0DD0DDDD0BFBFBFB0DD0DD0D0FBFBFBF0DDD00000BFBFBFB0DDDDD0D0000BF
            BF0DDDDDDD0BFB0000DDDDDDDDD000DDDDDDDDDDDDDDDDDDDDDD}
          ParentShowHint = False
          ShowHint = True
          OnClick = Button_DirectoryClick
        end
        object Button_Preview: TSpeedButton
          Left = 364
          Top = 80
          Width = 21
          Height = 21
          Hint = #39044#35272#25928#26524
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
            DDDDDDDDDDDDDDDD02ADDDDDDDDDDDD02AF0DDDDDDDDDD000F0DDDD000000D00
            80DDDD08FFFF80000DDDD07FFFFFF70DDDDD07FFF77FF870DDDD08FF7FF7FF80
            DDDD0FFF7FF7FFF0DDDD0FFF7FF7FFF0DDDD08FF7FF7FF80DDDD07FFFFFFF870
            DDDDD07FFFFFF80DDDDDDD08FFFF80DDDDDDDDD000000DDDDDDD}
          ParentShowHint = False
          ShowHint = True
          OnClick = Button_PreviewClick
        end
        object Button_Go: TBitBtn
          Left = 16
          Top = 160
          Width = 177
          Height = 25
          Caption = #24320#22987#21152#23494#25991#20214'[&O]'
          TabOrder = 6
          OnClick = Button_GoClick
        end
        object Button_UnGo: TBitBtn
          Left = 208
          Top = 160
          Width = 177
          Height = 25
          Caption = #24320#22987#35299#23494#25991#20214'[&E]'
          TabOrder = 7
          OnClick = Button_UnGoClick
        end
        object Edit_Pass1: TEdit
          Left = 208
          Top = 128
          Width = 177
          Height = 20
          PasswordChar = '#'
          TabOrder = 5
        end
        object Edit_Pass: TEdit
          Left = 16
          Top = 128
          Width = 177
          Height = 20
          Hint = '<18'#23383#33410
          ParentShowHint = False
          PasswordChar = '#'
          ShowHint = True
          TabOrder = 4
        end
        object StaticText1: TStaticText
          Left = 16
          Top = 112
          Width = 64
          Height = 16
          Caption = #36755#20837#23494#30721#65306
          TabOrder = 0
        end
        object StaticText_Pass1: TStaticText
          Left = 208
          Top = 112
          Width = 64
          Height = 16
          Caption = #37325#22797#23494#30721#65306
          TabOrder = 2
        end
        object StaticText2: TStaticText
          Left = 16
          Top = 16
          Width = 130
          Height = 16
          Caption = #36873#25321#35201#25805#20316#30340'EXE'#25991#20214#65306
          TabOrder = 1
        end
        object Edit_FileName: TEdit
          Left = 16
          Top = 32
          Width = 327
          Height = 20
          TabOrder = 3
          OnChange = Edit_FileNameChange
        end
        object Edit_Caption: TEdit
          Left = 17
          Top = 80
          Width = 347
          Height = 20
          Hint = '<26'#20010#27721#23383
          MaxLength = 52
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
        end
        object StaticText_Caption: TStaticText
          Left = 16
          Top = 64
          Width = 124
          Height = 16
          Caption = #21152#23494#21518#25991#20214#25552#31034#20449#24687#65306
          TabOrder = 9
        end
        object CheckBox_BackUp: TCheckBox
          Left = 208
          Top = 14
          Width = 129
          Height = 17
          Caption = #22791#20221#21407#25991#20214#20026' *.BAK'
          Checked = True
          State = cbChecked
          TabOrder = 10
        end
      end
      object TabSheet3: TTabSheet
        Caption = #35774#32622#19982#20851#20110
        ImageIndex = 2
        object lb_email: TLabel
          Left = 16
          Top = 136
          Width = 36
          Height = 12
          Caption = #30005#37038#65306
          Transparent = True
        end
        object lb_HomePage: TLabel
          Left = 208
          Top = 136
          Width = 36
          Height = 12
          Caption = #20027#39029#65306
          Transparent = True
        end
        object homepage: TLabel
          Left = 248
          Top = 132
          Width = 119
          Height = 16
          Cursor = crHandPoint
          Hint = #21435#25105#30340#20027#39029'DELPHI'#30418#23376
          Caption = 'http://www.2ccc.com'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          Transparent = True
          OnClick = homepageClick
        end
        object email: TLabel
          Left = 56
          Top = 132
          Width = 129
          Height = 16
          Cursor = crHandPoint
          Hint = #32473#25105#20889#20449
          Caption = '[e-mail]'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          Transparent = True
          OnClick = emailClick
        end
        object update: TLabel
          Left = 56
          Top = 148
          Width = 189
          Height = 16
          Cursor = crHandPoint
          Hint = #23519#30475#26159#21542#24050#26377#21319#32423#29256#26412
          Caption = 'http://www.2ccc.com/downloads'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          Transparent = True
          OnClick = updateClick
        end
        object lb_UpData: TLabel
          Left = 16
          Top = 152
          Width = 36
          Height = 12
          Caption = #21319#32423#65306
          Transparent = True
        end
        object lb_Author: TLabel
          Left = 248
          Top = 176
          Width = 144
          Height = 12
          Caption = #20316#32773#65306#19975#37325'  2001'#24180'6'#26376'1'#26085
        end
        object GroupBox1: TGroupBox
          Left = 8
          Top = 16
          Width = 385
          Height = 105
          Caption = #35774#32622
          TabOrder = 0
          object cb_Assoc: TCheckBox
            Left = 16
            Top = 40
            Width = 169
            Height = 17
            Caption = #19982'EXE'#25991#20214#24314#31435#21152#23494#20851#32852#33756#21333
            TabOrder = 0
            OnClick = cb_OptionClick
          end
          object btn_Apply: TButton
            Left = 16
            Top = 64
            Width = 169
            Height = 25
            Caption = #24212#29992'[&P]'
            TabOrder = 1
            OnClick = btn_ApplyClick
          end
          object cb_NeedPass: TCheckBox
            Left = 200
            Top = 40
            Width = 169
            Height = 17
            Caption = #36816#34892#25991#20214#21152#23494#31243#24207#38656#35201#23494#30721
            TabOrder = 2
            OnClick = cb_OptionClick
          end
          object Button1: TButton
            Left = 200
            Top = 64
            Width = 169
            Height = 25
            Caption = #26356#25913#23494#30721'[&C]'
            TabOrder = 3
            OnClick = Button1Click
          end
          object rb_Speed: TRadioButton
            Left = 200
            Top = 16
            Width = 169
            Height = 17
            Caption = #36895#24230#20248#20808#65288#19981#21387#32553#65289
            TabOrder = 4
            OnClick = cb_OptionClick
          end
          object rb_Comp: TRadioButton
            Left = 16
            Top = 16
            Width = 169
            Height = 17
            Caption = #23433#20840#20248#20808#65288#21387#32553#65289
            Checked = True
            TabOrder = 5
            TabStop = True
            OnClick = cb_OptionClick
          end
        end
      end
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 413
      Height = 48
      Align = alTop
      TabOrder = 1
      object lb_Ver: TLabel
        Left = 232
        Top = 30
        Width = 153
        Height = 12
        Alignment = taCenter
        AutoSize = False
        Caption = 'lb_Ver'
      end
      object Bevel1: TBevel
        Left = 232
        Top = 24
        Width = 153
        Height = 3
        Shape = bsTopLine
      end
      object StaticText5: TStaticText
        Left = 232
        Top = 7
        Width = 154
        Height = 16
        Caption = 'WIN32 EXE LOCKER FREEWARE'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object StaticText3: TStaticText
        Left = 16
        Top = 8
        Width = 180
        Height = 33
        Caption = 'EXE FILE LOCK'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = #21487#25191#34892#25991#20214'(*.exe)|*.exe'
    Left = 368
    Top = 48
  end
end