unitsoftregedit.dfm

delphi做的注册码验证程序

object frm_SoftRegedit: Tfrm_SoftRegedit
  Left = 62
  Top = 117
  Width = 525
  Height = 281
  BorderIcons = [biSystemMenu]
  Caption = #12304#36719#20214#27880#20876#26426#12305
  Color = clSkyBlue
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000010000000100000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000000000000000000000000000000000BBBBB000000000000
    0000000000000BBB000BBB0000000000000000000000BBB000B0BBB000000000
    000000000000BBB000B0BBB00000000000000000000BBBB000B0BBBB00000000
    00000000000BBBBB000BBBBB0000000000000000000BBBBBBBBBBBBB00000000
    000000000000BBBBBBBBBBBB00000000000000000000BBBBBBBBBBBB00000000
    0000000000000BBBBBBBBBB0000000000000000000000BBBBBBBBBB000000000
    00000000000000BBBBBBBB00000000000000000000000000BBBB000000000000
    00000000000000000BB000000000000000000000000000000BB0000000000009
    999999999990000B0BBBB0000000000099999990999000000BB0000000000000
    99099900990000000BB0000000009999900999099999900B0BB0000000000009
    999099999999990B0BB0000000000009909999099009990B0BB0000000000009
    999909999999900B0BB000000000099999999999999990000BB0000000000999
    99099909909990000BB000000000099999999999999990000BB0000000000000
    000999900000000B0BB0000000000000000099000000000B0BB0000000000000
    00000000000000000BB000000000000000000000000000000BB0000000000000
    00000000000000000BB00000000000000000000000000000000000000000FFFF
    E0FFFFFF803FFFFF001FFFFE0C0FFFFE0C0FFFFC0C07FFFC0007FFFC0007FFFE
    0007FFFE0007FFFF000FFFFF000FFFFF801FFFFFC03FFFFFF0FFFFFFE07FE001
    C03FF011C03FF233E0FF062040FFE10000FFE42600FFE08040FF800060FF8224
    60FF800060FFFE1FC0FFFF3FC0FFFFFFE0FFFFFFF0FFFFFFF0FFFFFFF9FF}
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 517
    Height = 254
    ActivePage = TabSheet3
    Align = alClient
    MultiLine = True
    Style = tsFlatButtons
    TabIndex = 2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #12304#36755#20837#27880#20876#30721#12305
      object BtStart: TSpeedButton
        Left = 331
        Top = 203
        Width = 86
        Height = 22
        Caption = #19979#27493'(&Y)'
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F0000000120B0000120B00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          777777776D7077777777777777777777500077777777887777777777A6007777
          777CC887777777777470777777C22C8877777777504177777A2222C887777777
          A6007777A222222C88777777A6007777A222A222C887777765347777A22C8A22
          2C877777342E7777A22C87A22C88777700F077777A2C777A22C887771D777777
          77AA7777A22C88776D707777777777777A22C887500077777777777777A22C87
          9700777777777777777A2C8774767777777777777777AC774945777777777777
          7777777700F0777777777777777777772C7777777777777777777777626D7777
          7777777777777777424D}
        OnClick = BtStartClick
      end
      object BtExit: TSpeedButton
        Left = 419
        Top = 203
        Width = 86
        Height = 22
        Caption = #21462#28040'(&Y)'
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F0000000120B0000120B00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          77777777FFFF77777778777777777777FFFE777777088777777777777FFF7777
          7910877777887777FFFF77777910887770088777FFFF77777911088791108777
          FFFF77777791108911107777FFFE777777911191110777777FFF777777791111
          10777777FFFF77777777911108877777FFFF77777777911110877777FFFF7777
          7779110110887777FFFE777777791079110887777FFF77777791077791108877
          FFFF77777791077779110877FFFF77777779777777910777FFFF777777777777
          77797777FFFE777777777777777777777FFF77777777777777777777FFFF7777
          7777777777777777FFFF}
        OnClick = BtExitClick
      end
      object Edit_KeyCode: TLabeledEdit
        Left = 253
        Top = 9
        Width = 252
        Height = 21
        EditLabel.Width = 104
        EditLabel.Height = 13
        EditLabel.Caption = #36755#20837#27880#20876#29992#25143#21517#65306
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpLeft
        LabelSpacing = 3
        TabOrder = 0
      end
      object Memo1: TMemo
        Left = 144
        Top = 36
        Width = 361
        Height = 159
        Color = clMoneyGreen
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        Lines.Strings = (
          #27880#20876#20107#39033#65306
          '1'#12289#35831#36755#20837#20320#30340'['#27880#20876#29992#25143#21517']'#65292#35813#39033#26159#24517#39035#22635#20889#30340#65307
          '2'#12289#36755#20837#21518#35831#35760#20303#20320#30340'['#29992#25143#21517']'#65292#27880#24847#22823#23567#20889#65307
          '3'#12289#27880#20876#24110#21161#65306
          '   '#32852#31995#20316#32773#65306#24352#24535#21326
          '   '#30005#23376#37038#20214#65306'[e-mail]'
          '   '#32852#31995#30005#35805#65306'130-88096280    '
          '   MSN'#21495'  '#65306'[e-mail]'
          '   QQ     '#65306'29763034'
          '   ')
        ReadOnly = True
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = #12304#31995#32479#29992#25143#21495#12305
      ImageIndex = 1
      object BtNext: TSpeedButton
        Left = 331
        Top = 203
        Width = 86
        Height = 22
        Caption = #19979#27493'(&Y)'
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F0000000120B0000120B00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777700007777777777777777777700007777777777777777777700007777
          777FFF77777777770000777777844FFF77777777000077777784444FFF777777
          00007777778444444FFF77770000777777844444444FFF770000777777844444
          44444F7700007777778444444444477700007777778444444448777700007777
          7784444448777777000077777784444877777777000077777784487777777777
          0000777777887777777777770000777777777777777777770000777777777777
          7777777700007777777777777777777700007777777777777777777700007777
          77777777777777770000}
        OnClick = BtNextClick
      end
      object SpeedButton2: TSpeedButton
        Left = 419
        Top = 203
        Width = 86
        Height = 22
        Caption = #21462#28040'(&Y)'
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F0000000120B0000120B00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          777777776D7077777777777777777777500077777777887777777777A6007777
          777CC887777777777470777777C22C8877777777504177777A2222C887777777
          A6007777A222222C88777777A6007777A222A222C887777765347777A22C8A22
          2C877777342E7777A22C87A22C88777700F077777A2C777A22C887771D777777
          77AA7777A22C88776D707777777777777A22C887500077777777777777A22C87
          9700777777777777777A2C8774767777777777777777AC774945777777777777
          7777777700F0777777777777777777772C7777777777777777777777626D7777
          7777777777777777424D}
        OnClick = SpeedButton2Click
      end
      object BtProves: TSpeedButton
        Left = 244
        Top = 203
        Width = 86
        Height = 22
        Caption = #19978#27493'(&Y)'
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F0000000120B0000120B00001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777700007777777777777777777700007777777777777777777700007777
          7777777777FF77770000777777777777F44F777700007777777777F4444F7777
          000077777777F444444F77770000777777F44444444F777700007777F4444444
          444F77770000777784444444444F77770000777788844444444F777700007777
          77888444444F77770000777777778884444F77770000777777777788844F7777
          0000777777777777888777770000777777777777777777770000777777777777
          7777777700007777777777777777777700007777777777777777777700007777
          77777777777777770000}
        OnClick = BtProvesClick
      end
      object Edit_ProductId: TLabeledEdit
        Left = 85