main_unit.dfm

如何获取cpu 内存 硬盘等物理硬件序列号

object MainFrm: TMainFrm
  Left = 297
  Top = 151
  BorderStyle = bsNone
  Caption = 'MainFrm'
  ClientHeight = 343
  ClientWidth = 422
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object pnlMain: TPanel
    Left = 0
    Top = 0
    Width = 422
    Height = 343
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'pnlMain'
    Ctl3D = False
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object pnlCenter: TPanel
      Left = 0
      Top = 24
      Width = 420
      Height = 317
      Align = alClient
      BevelOuter = bvNone
      Color = 15719374
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      object lbDiskID: TLabel
        Left = 128
        Top = 6
        Width = 105
        Height = 16
        AutoSize = False
        Caption = #30828#30424#24207#21015#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lbDiskIDMD5: TLabel
        Left = 128
        Top = 54
        Width = 185
        Height = 16
        AutoSize = False
        Caption = #29992'DES'#21152#23494#21518#30340#30828#30424#24207#21015#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object btnGet: TSpeedButton
        Left = 352
        Top = 95
        Width = 57
        Height = 34
        Caption = #33719#21462
        Enabled = False
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = btnGetClick
      end
      object lbCPUID: TLabel
        Left = 128
        Top = 109
        Width = 105
        Height = 16
        AutoSize = False
        Caption = 'CPU'#24207#21015#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lbCPUIDMD5: TLabel
        Left = 128
        Top = 166
        Width = 185
        Height = 16
        AutoSize = False
        Caption = #29992'DES'#21152#23494#21518#30340'CPU'#24207#21015#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object btnCount: TSpeedButton
        Left = 352
        Top = 159
        Width = 57
        Height = 34
        Caption = #35745#31639
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
        OnClick = btnCountClick
      end
      object lbCode: TLabel
        Left = 128
        Top = 213
        Width = 105
        Height = 16
        AutoSize = False
        Caption = #29992#25143#27880#20876#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 128
        Top = 272
        Width = 105
        Height = 16
        AutoSize = False
        Caption = #24207#21015#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object pnlLogo: TPanel
        Left = 0
        Top = 0
        Width = 115
        Height = 317
        Align = alLeft
        BorderStyle = bsSingle
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        object imgLogo: TImage
          Left = 1
          Top = 1
          Width = 111
          Height = 313
          Cursor = crHandPoint
          Hint = #35775#38382#36164#28304#22823#32852#30431#32593#31449'http://zydlm.wxhc.com.cn'
          Align = alClient
          Center = True
          ParentShowHint = False
          Picture.Data = {
            0A544A504547496D61676554660000FFD8FFE000104A46494600010101004800
            480000FFDB0043000604040405040605050609060506090B080606080B0C0A0A
            0B0A0A0C100C0C0C0C0C0C100C0E0F100F0E0C1313141413131C1B1B1B1C2020
            2020202020202020FFDB0043010707070D0C0D181010181A1511151A20202020
            2020202020202020202020202020202020202020202020202020202020202020
            20202020202020202020202020FFC000110801B500E803011100021101031101
            FFC4001D000001050101010100000000000000000004020305060701000809FF
            C400491000010303020403060305060307040301010203040005111221061331
            41225161071432427181235291153362A1B124344372C1D153829208162563A2
            E1F0357383B244A3F1D2FFC4001A010003010101010000000000000000000001
            020300040506FFC4002911010100020300020201040300030000000001021103