DVD

开发平台：
Delphi

Unit2.dfm：源码内容
							object Form2: TForm2
  Left = 376
  Top = 226
  Width = 537
  Height = 483
  Caption = 'Info'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 32
    Width = 521
    Height = 417
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Device info'
      object GroupBox2: TGroupBox
        Left = 16
        Top = 88
        Width = 473
        Height = 97
        Caption = 'Supported Read Feature'
        TabOrder = 0
        object CheckBox3: TCheckBox
          Left = 128
          Top = 24
          Width = 97
          Height = 17
          Caption = 'DVD-RAM'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object CheckBox4: TCheckBox
          Left = 128
          Top = 40
          Width = 97
          Height = 17
          Caption = 'DVD-ROM'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
        object CheckBox2: TCheckBox
          Left = 8
          Top = 40
          Width = 97
          Height = 17
          Caption = 'CD-RW'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
        end
        object CheckBox1: TCheckBox
          Left = 8
          Top = 24
          Width = 97
          Height = 17
          Caption = 'CD-R'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
        object CheckBox7: TCheckBox
          Left = 248
          Top = 40
          Width = 97
          Height = 17
          Caption = 'DVD+R'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
        end
        object CheckBox5: TCheckBox
          Left = 128
          Top = 56
          Width = 97
          Height = 17
          Caption = 'DVD-R'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
        end
        object CheckBox6: TCheckBox
          Left = 248
          Top = 24
          Width = 97
          Height = 17
          Caption = 'DVD-RW'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
        end
        object CheckBox8: TCheckBox
          Left = 248
          Top = 56
          Width = 97
          Height = 17
          Caption = 'DVD+RW'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
        end
        object CheckBox12: TCheckBox
          Left = 352
          Top = 72
          Width = 97
          Height = 17
          Caption = 'C2 Errors'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
        end
        object CheckBox9: TCheckBox
          Left = 352
          Top = 24
          Width = 97
          Height = 17
          Caption = 'Video CD'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
        end
        object CheckBox10: TCheckBox
          Left = 352
          Top = 40
          Width = 97
          Height = 17
          Caption = 'CD Text'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 10
        end
        object CheckBox11: TCheckBox
          Left = 352
          Top = 56
          Width = 97
          Height = 17
          Caption = 'CD+G'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 11
        end
        object CheckBox16: TCheckBox
          Left = 8
          Top = 56
          Width = 97
          Height = 17
          Hint = 'Read CD-R written using fixed packets'
          Caption = 'Method2'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 12
        end
      end
      object GroupBox1: TGroupBox
        Left = 16
        Top = 8
        Width = 473
        Height = 73
        Caption = 'General'
        TabOrder = 1
        object Label1: TLabel
          Left = 96
          Top = 16
          Width = 39
          Height = 13
          Caption = 'Label1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label2: TLabel
          Left = 96
          Top = 32
          Width = 39
          Height = 13
          Caption = 'Label1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label3: TLabel
          Left = 96
          Top = 48
          Width = 39
          Height = 13
          Caption = 'Label1'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label4: TLabel
          Left = 24
          Top = 16
          Width = 40
          Height = 13
          Caption = 'Device: '
        end
        object Label5: TLabel
          Left = 24
          Top = 32
          Width = 62
          Height = 13
          Caption = 'Ventor Spec:'
        end
        object Label6: TLabel
          Left = 24
          Top = 48
          Width = 48
          Height = 13
          Caption = 'Firmware: '
        end
      end
      object GroupBox3: TGroupBox
        Left = 16
        Top = 188
        Width = 473
        Height = 101
        Caption = 'Supported Write Feature'
        Enabled = False
        TabOrder = 2
        object CheckBox13: TCheckBox
          Left = 8
          Top = 24
          Width = 97
          Height = 17
          Caption = 'CD-R'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object CheckBox14: TCheckBox
          Left = 8
          Top = 40
          Width = 97
          Height = 17
          Caption = 'CD-RW'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
        object CheckBox15: TCheckBox
          Left = 8
          Top = 56
          Width = 97
          Height = 17
          Caption = 'DVD-RAM'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
        end
        object CheckBox17: TCheckBox
          Left = 128
          Top = 24
          Width = 97
          Height = 17
          Caption = 'DVD-R'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
        object CheckBox18: TCheckBox
          Left = 128
          Top = 40
          Width = 97
          Height = 17
          Caption = 'DVD-RW'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
        end
        object CheckBox19: TCheckBox
          Left = 128
          Top = 56
          Width = 97
          Height = 17
          Caption = 'DVD+R'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
        end
        object CheckBox20: TCheckBox
          Left = 128
          Top = 72
          Width = 97
          Height = 17
          Caption = 'DVD+RW'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
        end
        object CheckBox21: TCheckBox
          Left = 248
          Top = 24
          Width = 97
          Height = 17
          Caption = 'Mount Rainier'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
        end
        object CheckBox22: TCheckBox
          Left = 248
          Top = 40
          Width = 97
          Height = 17
          Caption = 'Buffer Underrun Protection'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
        end
      end
      object GroupBox4: TGroupBox
        Left = 16
        Top = 296
        Width = 473
        Height = 81
        Caption = 'Extended Feature'
        Enabled = False
        TabOrder = 3
        object CheckBox23: TCheckBox
          Left = 8
          Top = 16
          Width = 97
          Height = 17
          Caption = 'Mode 2  F1'
          Enabled = False
          TabOrder = 0
        end
        object CheckBox24: TCheckBox
          Left = 8
          Top = 32
          Width = 97
          Height = 17
          Caption = 'Mode 2 F2'
          Enabled = False
          TabOrder = 1
        end
        object CheckBox25: TCheckBox
          Left = 128
          Top = 16
          Width = 113
          Height = 17
          Caption = 'Read multisession'
          Enabled = False
          TabOrder = 2
        end
        object CheckBox26: TCheckBox
          Left = 128
          Top = 32
          Width = 97
          Height = 17
          Caption = 'Barcode'
          Enabled = False
          TabOrder = 3
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Media info'
      ImageIndex = 1
    end
  end
  object DriveCombo: TComboBox
    Left = 20
    Top = 2
    Width = 484
    Height = 21
    ItemHeight = 13
    TabOrder = 1
    OnChange = DriveComboChange
  end
end

						