mainform.dfm

C++Builder程序员编程手记《配书光盘》

object Form1: TForm1
  Left = 191
  Top = 107
  BorderStyle = bsToolWindow
  Caption = '系统信息浏览器'
  ClientHeight = 348
  ClientWidth = 530
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 530
    Height = 348
    ActivePage = TabSheet5
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '驱动器信息'
      object Splitter1: TSplitter
        Left = 185
        Top = 0
        Width = 2
        Height = 317
        Cursor = crHSplit
      end
      object ListView1: TListView
        Left = 187
        Top = 0
        Width = 335
        Height = 317
        Align = alClient
        Columns = <>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        IconOptions.AutoArrange = True
        IconOptions.WrapText = False
        ParentFont = False
        TabOrder = 0
        OnSelectItem = ListView1SelectItem
      end
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 185
        Height = 317
        Align = alLeft
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        Lines.Strings = (
          ''
          ''
          '')
        ParentFont = False
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = '内存信息'
      ImageIndex = 1
      object Memo2: TMemo
        Left = 8
        Top = 8
        Width = 393
        Height = 305
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object MemButton: TButton
        Left = 416
        Top = 264
        Width = 99
        Height = 25
        Caption = '取内存信息&M'
        TabOrder = 1
        OnClick = MemButtonClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = '各类目录信息'
      ImageIndex = 2
      object Memo3: TMemo
        Left = 8
        Top = 8
        Width = 361
        Height = 297
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object Panel1: TPanel
        Left = 377
        Top = 8
        Width = 145
        Height = 297
        BevelInner = bvLowered
        TabOrder = 1
        object SysDirButton: TButton
          Left = 24
          Top = 8
          Width = 100
          Height = 25
          Caption = '系统目录&S'
          TabOrder = 0
          OnClick = DirButtonClick
        end
        object WinDirButton: TButton
          Tag = 1
          Left = 24
          Top = 40
          Width = 100
          Height = 25
          Caption = '&Windos目录'
          TabOrder = 1
          OnClick = DirButtonClick
        end
        object TempDirButton: TButton
          Tag = 2
          Left = 24
          Top = 72
          Width = 100
          Height = 25
          Caption = '临时目录&T'
          TabOrder = 2
          OnClick = DirButtonClick
        end
        object CurrDirButton: TButton
          Tag = 3
          Left = 24
          Top = 104
          Width = 100
          Height = 25
          Caption = '当前目录&C'
          TabOrder = 3
          OnClick = DirButtonClick
        end
        object NetDirButton: TButton
          Tag = 4
          Left = 24
          Top = 137
          Width = 100
          Height = 25
          Caption = '网络邻居&R'
          TabOrder = 4
          OnClick = DirButtonClick
        end
        object DesktopDirButton: TButton
          Tag = 5
          Left = 24
          Top = 168
          Width = 100
          Height = 25
          Caption = 'Windows桌面&D'
          TabOrder = 5
          OnClick = DirButtonClick
        end
        object DocDirButton: TButton
          Tag = 6
          Left = 24
          Top = 200
          Width = 100
          Height = 25
          Caption = '文档目录&M'
          TabOrder = 6
          OnClick = DirButtonClick
        end
        object SendDirButton: TButton
          Tag = 7
          Left = 25
          Top = 232
          Width = 100
          Height = 25
          Caption = 'Se&ndTo目录'
          TabOrder = 7
          OnClick = DirButtonClick
        end
        object StartDirButton: TButton
          Tag = 8
          Left = 24
          Top = 264
          Width = 100
          Height = 25
          Caption = '开始菜单&N'
          TabOrder = 8
          OnClick = DirButtonClick
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = '其它信息'
      ImageIndex = 3
      object Memo4: TMemo
        Left = 8
        Top = 8
        Width = 329
        Height = 297
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object Panel2: TPanel
        Left = 344
        Top = 8
        Width = 177
        Height = 297
        BevelInner = bvLowered
        TabOrder = 1
        object VersionButton: TButton
          Left = 40
          Top = 16
          Width = 100
          Height = 25
          Caption = '&Windows版本'
          TabOrder = 0
          OnClick = VersionButtonClick
        end
        object ComputerNameButton1: TButton
          Left = 40
          Top = 64
          Width = 100
          Height = 25
          Caption = '机器名称&M'
          TabOrder = 1
          OnClick = ComputerNameButton1Click
        end
        object UserNameButton1: TButton
          Left = 40
          Top = 112
          Width = 100
          Height = 25
          Caption = '用户名称&U'
          TabOrder = 2
          OnClick = UserNameButton1Click
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = '硬件信息'
      ImageIndex = 4
      object Memo5: TMemo
        Left = 8
        Top = 8
        Width = 346
        Height = 301
        Lines.Strings = (
          '')
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object Panel3: TPanel
        Left = 358
        Top = 7
        Width = 165
        Height = 302
        BevelInner = bvLowered
        TabOrder = 1
        object CPUButton: TButton
          Left = 36
          Top = 25
          Width = 100
          Height = 25
          Caption = '&CPU信息'
          TabOrder = 0
          OnClick = CPUButtonClick
        end
        object SoundButton: TButton
          Left = 37
          Top = 57
          Width = 100
          Height = 25
          Caption = '检测声卡&S'
          TabOrder = 1
          OnClick = SoundButtonClick
        end
        object VideoButton: TButton
          Left = 37
          Top = 90
          Width = 100
          Height = 25
          Caption = '检测显示器&V'
          TabOrder = 2
          OnClick = VideoButtonClick
        end
      end
    end
  end
end