keyfile.dfm

创建一个经过加密的软件系统信息文件

object Form_KeyFile: TForm_KeyFile
  Left = 212
  Top = 130
  BorderStyle = bsDialog
  Caption = 'KeyFile Set Up'
  ClientHeight = 264
  ClientWidth = 651
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 112
    Top = 64
    Width = 178
    Height = 16
    Caption = 'Hospital Serial Number    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 200
    Top = 16
    Width = 194
    Height = 16
    Caption = 'MRI System KeyFile Set Up '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 112
    Top = 104
    Width = 142
    Height = 16
    Caption = 'Magnetic filed (MHz)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 112
    Top = 144
    Width = 72
    Height = 16
    Caption = 'Time Limit'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 368
    Top = 144
    Width = 12
    Height = 13
    Caption = #24180
  end
  object Label6: TLabel
    Left = 440
    Top = 144
    Width = 12
    Height = 13
    Caption = #26376
  end
  object Label7: TLabel
    Left = 512
    Top = 144
    Width = 12
    Height = 13
    Caption = #26085
  end
  object Edit_HospitalSerialNumber: TEdit
    Left = 288
    Top = 56
    Width = 241
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Edit_MagneticFiled: TEdit
    Left = 288
    Top = 104
    Width = 241
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object Edit_Year: TEdit
    Left = 288
    Top = 136
    Width = 73
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object Edit_Month: TEdit
    Left = 392
    Top = 136
    Width = 41
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
  end
  object Edit_Data: TEdit
    Left = 464
    Top = 136
    Width = 41
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
  end
  object Button_Encrypt: TButton
    Left = 192
    Top = 192
    Width = 75
    Height = 25
    Caption = 'Encrypt'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = Button_EncryptClick
  end
  object Button_Decrypt: TButton
    Left = 400
    Top = 192
    Width = 75
    Height = 25
    Caption = 'Decrypt'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    OnClick = Button_DecryptClick
  end
end