读不懂，求破解思路

newnewsc

以下是小软件工业计算器     注册相关的语句
object zhuceform: Tzhuceform
  Left = 246
  Top = 121
  Width = 480
  Height = 377
  BorderIcons = [biHelp]
  Caption = 软件注册
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 176
    Width = 84
    Height = 12
    Caption = 本机机器码为：
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 宋体
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 56
    Top = 256
    Width = 89
    Height = 13
    AutoSize = False
    Caption = 请输入注册码：
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 宋体
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 200
    Top = 16
    Width = 89
    Height = 17
    AutoSize = False
    Caption = 软件注册
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = 宋体
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 48
    Top = 48
    Width = 390
    Height = 72
    Cursor = crHandPoint
    Caption =
      本软件只有经过注册，才能够正常使用，请按以下步骤进行注册：
一、抄录软件在您的计算机上运行时得到的“机器码”。
二、将“机器码”以电子邮件形式发送到 mov8@sina.com 。
三、按本要求交纳“注册费”，交费方法参见 http://www.mov.2ya.com。
四、将从本公司得到的“注册码”输入到下框内，按“注册”。
五、现在您的软件就是正式版本了。
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 宋体
    Font.Style = []
    ParentFont = False
    OnClick = Label2Click
  end
  object WebBrowser1: TWebBrowser
    Left = 368
    Top = 312
    Width = 17
    Height = 17
    TabOrder = 5
    ControlData = {
      4C000000C2010000C20100000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object Button1: TButton
    Left = 360
    Top = 248
    Width = 73
    Height = 25
    Caption = 注册
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 宋体
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 144
    Top = 250
    Width = 201
    Height = 21
    ImeMode = imClose
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 145
    Top = 174
    Width = 200
    Height = 21
    ImeMode = imClose
    ReadOnly = True
    TabOrder = 2
    Text = 'Edit2'
  end
  object Button2: TButton
    Left = 360
    Top = 168
    Width = 75
    Height = 25
    Caption = 发送机器码
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 宋体
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object BitBtn1: TBitBtn
    Left = 360
    Top = 304
    Width = 75
    Height = 25
    TabOrder = 4
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object a: TTomEncryption
    Left = 440
    Top = 80
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = False
    ControlUseTrueXPStyle = True
    BtnRoundArc = 5
    BtnOutLineBorderColor = 7552000
    BtnInnerBorderMoveColor = 3257087
    BtnInnerBorderFocusColor = 15183500
    BtnSurfaceNormalColor = 16251903
    BtnSurfaceDownColor = 14608359
    BtnSurfaceBottomLineColor = 14608359
    BtnSurfaceDownBottomLineColor = 15199215
    RdoChkControlChkColor = 41472
    ComboBoxChkColor = 9201994
    ComboboxSurfaceMoveColor = 16771030
    ControlDisabledBorderColor = 11913158
    Left = 32
    Top = 224
  end
end

CrazyNut

这似乎只是界面布局吧。。

newnewsc

CrazyNut 发表于 2020-5-20 10:26
这似乎只是界面布局吧。。

啊？还以为里面会有注册码比较的代码呢

aochuan

要找到注册按钮事件  比如*button_click  delphi 的话用IDR

newnewsc

aochuan 发表于 2020-5-21 13:43
要找到注册按钮事件  比如*button_click  delphi 的话用IDR

我试试~谢谢提醒