main.dfm

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

object wnd_dv_Main: Twnd_dv_Main
  Left = 295
  Top = 356
  Caption = 'Storage Devices'
  ClientHeight = 573
  ClientWidth = 455
  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
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 455
    Height = 532
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
    Caption = ' '
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 10
      Top = 242
      Width = 435
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object List: TListView
      Left = 10
      Top = 245
      Width = 435
      Height = 277
      Align = alBottom
      Columns = <
        item
          Caption = 'Property'
          Width = 150
        end
        item
          Caption = 'Value'
          Width = 250
        end>
      ColumnClick = False
      ReadOnly = True
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
    end
    object Tree: TTreeView
      Left = 10
      Top = 10
      Width = 435
      Height = 232
      Align = alClient
      BorderWidth = 5
      Images = ilStorage
      Indent = 19
      ReadOnly = True
      TabOrder = 1
      OnCustomDrawItem = TreeCustomDrawItem
      OnDeletion = TreeDeletion
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 532
    Width = 455
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    Caption = ' '
    TabOrder = 1
    object bClose: TButton
      Left = 368
      Top = 8
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = 'Close'
      Default = True
      TabOrder = 0
      OnClick = bCloseClick
    end
    object bRefresh: TButton
      Left = 11
      Top = 8
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Anchors = [akLeft, akBottom]
      Caption = 'Refresh'
      TabOrder = 1
      OnClick = cmRefresh
    end
    object bSave: TButton
      Left = 91
      Top = 8
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Anchors = [akLeft, akBottom]
      Caption = 'Save...'
      TabOrder = 2
      OnClick = bSaveClick
    end
    object cbxAuto: TCheckBox
      Left = 179
      Top = 14
      Width = 97
      Height = 17
      Cursor = crHandPoint
      Anchors = [akLeft, akBottom]
      Caption = 'Auto Refresh'
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
  end
  object sd: TSaveDialog
    Filter = 'MiTeC System Information Storage files|*.sis|All files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 278
    Top = 204
  end
  object Storage: TMiTeC_Storage
    Left = 273
    Top = 78
  end
  object Disk: TMiTeC_Disk
    Left = 144
    Top = 87
  end
  object ilStorage: TImageList
    Left = 253
    Top = 462
    Bitmap = {
      494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000