lock_main.dfm

EXELOCK 1.83 EXE文件加密器的源代码

object Form1: TForm1
  Left = 364
  Top = 315
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'EXE文件加密器'
  ClientHeight = 178
  ClientWidth = 433
  Color = 10930928
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Button_Go: TFlatButton
    Left = 296
    Top = 16
    Width = 121
    Height = 25
    ColorFocused = 2058166
    ColorDown = 10930672
    ColorBorder = 6135268
    UseAdvColors = True
    Caption = '开始加密文件[&O]'
    TabOrder = 4
    OnClick = Button_GoClick
  end
  object Button_Exit: TFlatButton
    Left = 296
    Top = 136
    Width = 121
    Height = 25
    ColorFocused = 2058166
    ColorDown = 10930672
    ColorBorder = 6135268
    UseAdvColors = True
    Caption = '退出[&X]'
    TabOrder = 6
    OnClick = Button_ExitClick
  end
  object Edit_Pass: TFlatEdit
    Left = 16
    Top = 112
    Width = 121
    Height = 18
    Hint = '最大15位'
    ColorBorder = 6135268
    ColorFlat = 10930928
    ParentColor = True
    MaxLength = 15
    ParentShowHint = False
    PasswordChar = '#'
    ShowHint = True
    TabOrder = 2
  end
  object ProgressBar1: TProgressBar
    Left = 16
    Top = 144
    Width = 257
    Height = 16
    Hint = '工作进度条'
    Min = 0
    Max = 100
    ParentShowHint = False
    Smooth = True
    ShowHint = True
    TabOrder = 7
  end
  object StaticText1: TStaticText
    Left = 16
    Top = 96
    Width = 64
    Height = 16
    Caption = '输入密码：'
    TabOrder = 8
  end
  object Button_OpenFile: TFlatButton
    Left = 239
    Top = 64
    Width = 18
    Height = 18
    Hint = '打开文件'
    ColorFocused = 2058166
    ColorDown = 10930672
    ColorBorder = 6135268
    UseAdvColors = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
      DDDDDDDDDDDDDDDDDDDDDD0000000000DDDDDD00333333330DDDDD0B03333333
      30DDDD0BB0333333330DDD0BBB000000000DDD0BBBBBBBB0DDDDDD0BBB000000
      DDDDDDD000DDDDDDDDDDDDDDDDDDDDD000DDDDDDDDDDDDDD00DDDDDDDDD0DDD0
      D0DDDDDDDDDD000DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = Button_OpenFileClick
  end
  object StaticText2: TStaticText
    Left = 16
    Top = 48
    Width = 130
    Height = 16
    Caption = '选择要操作的EXE文件：'
    TabOrder = 9
  end
  object Edit_Pass1: TFlatEdit
    Left = 152
    Top = 112
    Width = 121
    Height = 18
    ColorBorder = 6135268
    ColorFlat = 10930928
    ParentColor = True
    MaxLength = 15
    PasswordChar = '#'
    TabOrder = 3
  end
  object Button_About: TFlatButton
    Left = 296
    Top = 96
    Width = 121
    Height = 25
    ColorFocused = 2058166
    ColorDown = 10930672
    ColorBorder = 6135268
    UseAdvColors = True
    Caption = '关于[&A]'
    TabOrder = 5
    OnClick = Button_AboutClick
  end
  object StaticText_Pass1: TStaticText
    Left = 152
    Top = 96
    Width = 64
    Height = 16
    Caption = '重复密码：'
    TabOrder = 10
  end
  object Edit_FileName: TFlatEdit
    Left = 16
    Top = 64
    Width = 224
    Height = 18
    ColorBorder = 6135268
    ColorFlat = 10930928
    ParentColor = True
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnChange = Edit_FileNameChange
  end
  object CheckBox_BackUp: TFlatCheckBox
    Left = 152
    Top = 47
    Width = 121
    Height = 17
    Caption = '备份原文件为*.BAK'
    Checked = True
    TabOrder = 11
    TabStop = True
  end
  object Button_UnGo: TFlatButton
    Left = 296
    Top = 56
    Width = 121
    Height = 25
    ColorFocused = 2058166
    ColorDown = 10930672
    ColorBorder = 6135268
    UseAdvColors = True
    Caption = '开始解密文件[&E]'
    TabOrder = 12
    OnClick = Button_UnGoClick
  end
  object Panel1: TPanel
    Left = 16
    Top = 16
    Width = 257
    Height = 17
    BevelOuter = bvLowered
    Color = 10930928
    TabOrder = 13
    object Label_Msg: TLabel
      Left = 1
      Top = 3
      Width = 255
      Height = 12
      Hint = '信息显示栏'
      Alignment = taCenter
      AutoSize = False
      Caption = '信息'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
  end
  object Button_Directory: TFlatButton
    Left = 256
    Top = 64
    Width = 18
    Height = 18
    Hint = '跳到文件所在目录'
    ColorFocused = 2058166
    ColorDown = 10930672
    ColorBorder = 6135268
    UseAdvColors = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
      DDDDD0000000000000DDD8777777777770DDDF888888888870DDDF8888888888
      70DDDF899888888870DDDFFFFFFFFFFF88DDDDDDDDD0000000DDDD0DDD0FBFBF
      BF0DD0DDDD0BFBFBFB0DD0DD0D0FBFBFBF0DDD00000BFBFBFB0DDDDD0D0000BF
      BF0DDDDDDD0BFB0000DDDDDDDDD000DDDDDDDDDDDDDDDDDDDDDD}
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = Button_DirectoryClick
  end
  object OpenDialog1: TOpenDialog
    Filter = '可执行文件(*.exe)|*.exe'
    Left = 64
    Top = 136
  end
  object FlatHint1: TFlatHint
    MaxHintWidth = 255
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 32
    Top = 136
  end
end