summary.dfm

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

      Height = 445
      Cursor = crHandPoint
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = ' Hardware '
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 715
          Height = 417
          Align = alClient
          BevelOuter = bvNone
          BorderWidth = 10
          Caption = ' '
          TabOrder = 0
          object HWList: TListView
            Left = 10
            Top = 10
            Width = 695
            Height = 397
            Align = alClient
            Columns = <
              item
                Caption = 'Machine'
                Width = 100
              end
              item
                Alignment = taRightJustify
                Caption = 'CPU Count'
              end
              item
                Caption = 'CPU Vendor'
                Width = 70
              end
              item
                Caption = 'CPU Name'
                Width = 70
              end
              item
                Alignment = taRightJustify
                Caption = 'CPU Freq [MHz]'
                Width = 70
              end
              item
                Alignment = taRightJustify
                Caption = 'Memory [MB]'
                Width = 65
              end
              item
                Alignment = taRightJustify
                Caption = 'HDD Count'
              end
              item
                Alignment = taRightJustify
                Caption = 'Capacity [GB]'
                Width = 70
              end
              item
                Alignment = taRightJustify
                Caption = 'CDROM Count'
                Width = 65
              end
              item
                Caption = 'DVD Count'
                Width = 65
              end
              item
                Caption = 'Tape Count'
                Width = 200
              end
              item
                Caption = 'System'
                Width = 200
              end
              item
                Caption = 'Mainboard'
                Width = 200
              end
              item
                Caption = 'Graphic Adapter'
                Width = 200
              end
              item
                Caption = 'Network Adapter'
                Width = 200
              end
              item
                Caption = 'Audio Adapter'
                Width = 150
              end
              item
                Caption = 'Operating System'
                Width = 150
              end
              item
                Caption = 'Product Key'
                Width = 200
              end>
            HideSelection = False
            ReadOnly = True
            RowSelect = True
            TabOrder = 0
            ViewStyle = vsReport
            OnAdvancedCustomDrawItem = HWListAdvancedCustomDrawItem
            OnAdvancedCustomDrawSubItem = HWListAdvancedCustomDrawSubItem
            OnColumnClick = HWListColumnClick
            OnCompare = HWListCompare
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = ' Software '
        ImageIndex = 1
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 715
          Height = 417
          Align = alClient
          BevelOuter = bvNone
          BorderWidth = 10
          Caption = ' '
          TabOrder = 0
          object SWList: TListView
            Left = 10
            Top = 10
            Width = 695
            Height = 397
            Align = alClient
            Columns = <
              item
                Caption = 'Product'
                Width = 200
              end
              item
                Alignment = taRightJustify
                Caption = 'Count'
              end
              item
                Caption = 'Location'
                Width = 400
              end>
            ColumnClick = False
            HideSelection = False
            ReadOnly = True
            RowSelect = True
            SortType = stText
            TabOrder = 0
            ViewStyle = vsReport
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = ' OS '
        ImageIndex = 2
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 715
          Height = 417
          Align = alClient
          BevelOuter = bvNone
          BorderWidth = 10
          Caption = ' '
          TabOrder = 0
          object OSList: TListView
            Left = 10
            Top = 10
            Width = 695
            Height = 397
            Align = alClient
            Columns = <
              item
                Caption = 'Name'
                Width = 200
              end
              item
                Alignment = taRightJustify
                Caption = 'Count'
              end
              item
                Caption = 'Location'
                Width = 400
              end>
            ColumnClick = False
            HideSelection = False
            ReadOnly = True
            RowSelect = True
            SortType = stText
            TabOrder = 0
            ViewStyle = vsReport
          end
        end
      end
      object TabSheet4: TTabSheet
        Caption = ' Network '
        ImageIndex = 3
        object Panel6: TPanel
          Left = 0
          Top = 0
          Width = 715
          Height = 417
          Align = alClient
          BevelOuter = bvNone
          BorderWidth = 10
          Caption = ' '
          TabOrder = 0
          object NetList: TListView
            Left = 10
            Top = 10
            Width = 695
            Height = 397
            Align = alClient
            Columns = <
              item
                Caption = 'Machine'
                Width = 100
              end
              item
                Caption = 'IP Address'
                Width = 250
              end
              item
                Caption = 'MAC Address'
                Width = 250
              end>
            ColumnClick = False
            HideSelection = False
            ReadOnly = True
            RowSelect = True
            SortType = stText
            TabOrder = 0
            ViewStyle = vsReport
          end
        end
      end
    end
  end
  object sd: TSaveDialog
    Filter = 'CSV files|*.csv|All files|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 209
    Top = 280
  end
end