main.dfm

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

object Form1: TForm1
  Left = 318
  Top = 277
  Caption = 'Form1'
  ClientHeight = 562
  ClientWidth = 628
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 628
    Height = 562
    Align = alClient
    Alignment = taCenter
    Caption = 'Collecting data...please wait'
    Layout = tlCenter
  end
  object Button1: TButton
    Left = 545
    Top = 529
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Close'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Tree: TTreeView
    Left = 8
    Top = 8
    Width = 612
    Height = 512
    Anchors = [akLeft, akTop, akRight, akBottom]
    BorderWidth = 5
    Indent = 19
    ParentShowHint = False
    ReadOnly = True
    RowSelect = True
    ShowButtons = False
    ShowHint = True
    ShowLines = False
    TabOrder = 1
    OnCustomDrawItem = TreeCustomDrawItem
  end
  object Button2: TButton
    Left = 8
    Top = 529
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Refresh'
    Default = True
    TabOrder = 2
    OnClick = cmRefresh
  end
  object bSave: TButton
    Left = 89
    Top = 529
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Save...'
    TabOrder = 3
    OnClick = bSaveClick
  end
  object bLoad: TButton
    Left = 170
    Top = 529
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Load...'
    TabOrder = 4
    OnClick = bLoadClick
  end
  object CPU: TMiTeC_CPU
    Left = 86
    Top = 432
  end
  object Memory: TMiTeC_Memory
    Left = 124
    Top = 432
  end
  object Display: TMiTeC_Display
    Left = 162
    Top = 432
  end
  object Network: TMiTeC_Network
    Left = 201
    Top = 432
  end
  object Media: TMiTeC_Media
    Left = 239
    Top = 432
  end
  object Printers: TMiTeC_Printers
    Left = 278
    Top = 432
  end
  object StorDevs: TMiTeC_Storage
    Left = 317
    Top = 432
  end
  object USB: TMiTeC_USB
    Left = 355
    Top = 432
  end
  object Monitor: TMiTeC_Monitor
    Left = 394
    Top = 432
  end
  object od: TOpenDialog
    Filter = 'MiTeC System Information Storage files|*.sis|All files|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 316
    Top = 276
  end
  object sd: TSaveDialog
    Filter = 'MiTeC System Information Storage files|*.sis|All files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 396
    Top = 275
  end
  object OS: TMiTeC_OperatingSystem
    Left = 433
    Top = 432
  end
  object Machine: TMiTeC_Machine
    Left = 474
    Top = 432
  end
end