msi_overview.dfm

一个很不错的系统信息控件

object frmMSI_Overview: TfrmMSI_Overview
  Left = 356
  Top = 332
  Caption = 'MiTeC System Information'
  ClientHeight = 523
  ClientWidth = 393
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label82: TLabel
    Left = 14
    Top = 101
    Width = 33
    Height = 13
    Caption = 'Market'
  end
  object Label87: TLabel
    Left = 14
    Top = 123
    Width = 37
    Height = 13
    Caption = 'Generic'
  end
  object Panel1: TPanel
    Left = 0
    Top = 486
    Width = 393
    Height = 37
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Panel2: TPanel
      Left = 227
      Top = 0
      Width = 166
      Height = 37
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object bRefresh: TButton
        Left = 4
        Top = 4
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = 'Refresh'
        TabOrder = 0
        OnClick = cmRefresh
      end
      object bOK: TButton
        Left = 85
        Top = 4
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Cancel = True
        Caption = 'OK'
        Default = True
        ModalResult = 1
        TabOrder = 1
        OnClick = cmClose
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 393
    Height = 486
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    TabOrder = 1
    object pc: TPageControl
      Left = 5
      Top = 5
      Width = 383
      Height = 476
      Cursor = crHandPoint
      ActivePage = tsAPM
      Align = alClient
      MultiLine = True
      TabOrder = 0
      object tsWksta: TTabSheet
        Caption = ' Machine '
        object pNumLock: TPanel
          Left = 125
          Top = 370
          Width = 77
          Height = 20
          Anchors = [akRight, akBottom]
          BorderStyle = bsSingle
          Caption = 'Num Lock'
          Color = clSilver
          TabOrder = 0
        end
        object pCapsLock: TPanel
          Left = 207
          Top = 370
          Width = 77
          Height = 20
          Anchors = [akRight, akBottom]
          BorderStyle = bsSingle
          Caption = 'Caps Lock'
          TabOrder = 1
        end
        object pScrollLock: TPanel
          Left = 289
          Top = 370
          Width = 77
          Height = 20
          Anchors = [akRight, akBottom]
          BorderStyle = bsSingle
          Caption = 'Scroll Lock'
          TabOrder = 2
        end
        object eMachine: TEdit
          Left = 16
          Top = 8
          Width = 351
          Height = 21
          Anchors = [akLeft, akTop, akRight]
          ReadOnly = True
          TabOrder = 3
        end
        object pcMachine: TPageControl
          Left = 11
          Top = 35
          Width = 360
          Height = 324
          Cursor = crHandPoint
          ActivePage = tsMachineSMBIOS
          Anchors = [akLeft, akTop, akRight, akBottom]
          TabOrder = 4
          object tsMachineGeneral: TTabSheet
            Caption = ' General '
            object gbMID: TGroupBox
              Left = 13
              Top = 7
              Width = 326
              Height = 70
              Anchors = [akLeft, akTop, akRight]
              Caption = ' Identification '
              TabOrder = 0
              object Label1: TLabel
                Left = 68
                Top = 19
                Width = 70
                Height = 13
                Alignment = taRightJustify
                Caption = 'Machine name'
              end
              object Label2: TLabel
                Left = 87
                Top = 45
                Width = 51
                Height = 13
                Alignment = taRightJustify
                Caption = 'User name'
              end
              object Image1: TImage
                Left = 14
                Top = 24
                Width = 32
                Height = 32
                AutoSize = True
                Center = True
                Picture.Data = {
                  055449636F6E0000010009003030100001000400680600009600000020201000
                  01000400E8020000FE060000101010000100040028010000E609000030300000
                  01002000A82500000E0B00003030000001000800A80E0000B630000020200000
                  01002000A81000005E3F00002020000001000800A80800000650000010100000