main.dfm

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

object wnd_msicstest_Main: Twnd_msicstest_Main
  Left = 295
  Top = 285
  Caption = 'MSICS Test'
  ClientHeight = 519
  ClientWidth = 599
  Color = clBtnFace
  Font.Charset = EASTEUROPE_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 510
    Top = 486
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Close'
    TabOrder = 9
    OnClick = Button1Click
  end
  object Box: TMemo
    Left = 14
    Top = 266
    Width = 571
    Height = 212
    Hint = 'Information Box'
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clBlack
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ScrollBars = ssBoth
    ShowHint = True
    TabOrder = 7
  end
  object Button2: TButton
    Left = 13
    Top = 486
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Run Test'
    TabOrder = 8
    OnClick = Button2Click
  end
  object cbxReport: TCheckBox
    Left = 13
    Top = 223
    Width = 432
    Height = 17
    Cursor = crHandPoint
    Caption = 'Save data to MiTeC System Information Storage file'
    TabOrder = 5
  end
  object GroupBox1: TGroupBox
    Left = 14
    Top = 1
    Width = 570
    Height = 125
    Anchors = [akLeft, akTop, akRight]
    Caption = '[Tested objects]'
    TabOrder = 0
    object clb: TCheckListBox
      Left = 2
      Top = 15
      Width = 566
      Height = 108
      Cursor = crHandPoint
      Align = alClient
      Anchors = [akLeft, akTop, akBottom]
      BorderStyle = bsNone
      Color = clBtnFace
      Columns = 4
      ItemHeight = 13
      Items.Strings = (
        'APM'
        'ASPI32'
        'BIOS'
        'Connections'
        'CPU'
        'Devices'
        'DirectX'
        'Disk'
        'Display'
        'Engines'
        'Internet'
        'LocaleInfo'
        'Machine'
        'Media'
        'Memory'
        'Monitor'
        'MSProduct'
        'Network'
        'NTSpecific'
        'OS'
        'Printers'
        'ProcessList'
        'SMBIOS'
        'Software'
        'Startup'
        'Storage'
        'TCPIP'
        'TimeZone'
        'USB'
        'Winsock')
      PopupMenu = PopupMenu1
      Sorted = True
      TabOrder = 0
    end
  end
  object cbxExtra: TCheckBox
    Left = 33
    Top = 150
    Width = 220
    Height = 17
    Cursor = crHandPoint
    Caption = 'Extra features'
    TabOrder = 2
  end
  object cbxSafe: TCheckBox
    Left = 14
    Top = 243
    Width = 554
    Height = 17
    Cursor = crHandPoint
    Caption = 
      'Safe execution (critical routines are run in separated threads. ' +
      'Timeout is 60 s.) (ProcessList only)'
    TabOrder = 6
  end
  object GroupBox2: TGroupBox
    Left = 13
    Top = 174
    Width = 570
    Height = 46
    Anchors = [akLeft, akTop, akRight]
    Caption = '[ProcessList detection range]'
    TabOrder = 3
    object clbPL: TCheckListBox
      Left = 20
      Top = 18
      Width = 538
      Height = 13
      Cursor = crHandPoint
      BorderStyle = bsNone
      Color = clBtnFace
      Columns = 5
      IntegralHeight = True
      ItemHeight = 13
      Items.Strings = (
        'Processes'
        'Services'
        'Drivers'
        'Handles'
        'Windows')
      TabOrder = 0
    end
  end
  object cbxSI: TCheckBox
    Left = 13
    Top = 132
    Width = 163
    Height = 17
    Cursor = crHandPoint
    Caption = 'Test SystemInfo component'
    TabOrder = 1
  end
  object GroupBox3: TGroupBox
    Left = 377
    Top = 128
    Width = 206
    Height = 46
    Anchors = [akTop, akRight]
    Caption = '[Virtual machine detection]'
    TabOrder = 4
    object cbxVM: TCheckBox
      Left = 21
      Top = 18
      Width = 84
      Height = 17
      Cursor = crHandPoint
      Caption = 'VMWare'
      TabOrder = 0
    end
    object cbxVPC: TCheckBox
      Left = 111
      Top = 18
      Width = 84
      Height = 17
      Cursor = crHandPoint
      Caption = 'Virtual PC'
      TabOrder = 1
    end
  end
  object bDM: TButton
    Left = 94
    Top = 486
    Width = 118
    Height = 25
    Cursor = crHandPoint
    Anchors = [akLeft, akBottom]
    Caption = 'Debug messages...'
    Enabled = False
    TabOrder = 10
    OnClick = bDMClick
  end
  object PopupMenu1: TPopupMenu
    Left = 516
    Top = 57
    object Checkall1: TMenuItem
      Tag = 1
      Caption = 'Check all'
      OnClick = Checkall1Click
    end
    object Uncheckall1: TMenuItem
      Caption = 'Uncheck all'
      OnClick = Checkall1Click
    end
    object Inverse1: TMenuItem
      Caption = 'Inverse'
      OnClick = Inverse1Click
    end
  end
  object ApplicationEvents1: TApplicationEvents
    Left = 374
    Top = 53
  end
end