umain.~dfm

Delphi源码：获取计算机系统的逻辑硬盘号、物理硬盘号、Cpu号、Bios号等等。

object Form1: TForm1
  Left = 212
  Top = 164
  Width = 499
  Height = 354
  Caption = #33719#21462#26426#22120#29305#24449#30721
  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 GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 201
    Height = 305
    Caption = #29305#24449#30721#31867#22411
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object rbDiskLogic: TRadioButton
      Left = 24
      Top = 32
      Width = 113
      Height = 17
      Caption = #36923#36753#30828#30424#21495
      TabOrder = 0
    end
    object rbDiskPhysical: TRadioButton
      Left = 24
      Top = 64
      Width = 113
      Height = 17
      Caption = #29289#29702#30828#30424#21495
      TabOrder = 1
    end
    object rbNicMac: TRadioButton
      Left = 24
      Top = 96
      Width = 113
      Height = 17
      Caption = #32593#21345'MAC'
      TabOrder = 2
    end
    object btnGet: TButton
      Left = 48
      Top = 264
      Width = 75
      Height = 25
      Caption = #33719#21462
      TabOrder = 3
      OnClick = btnGetClick
    end
    object rbBios: TRadioButton
      Left = 24
      Top = 128
      Width = 113
      Height = 17
      Caption = 'Bios'
      TabOrder = 4
    end
    object rbCpu: TRadioButton
      Left = 24
      Top = 160
      Width = 113
      Height = 17
      Caption = 'CPU'
      TabOrder = 5
    end
    object rbWinVersion: TRadioButton
      Left = 24
      Top = 192
      Width = 113
      Height = 17
      Caption = 'Win Version'
      TabOrder = 6
    end
  end
  object GroupBox2: TGroupBox
    Left = 216
    Top = 8
    Width = 265
    Height = 305
    Caption = #25552#31034#20449#24687
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Memo1: TMemo
      Left = 16
      Top = 24
      Width = 233
      Height = 265
      Lines.Strings = (
        '')
      TabOrder = 0
    end
  end
end