unit1.dfm

刻录机源码

object Form1: TForm1
  Left = 230
  Top = 189
  Width = 727
  Height = 494
  ActiveControl = cbDrives
  Caption = 'Magic CD/DVD Burner'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF
    FF878FFFFFFFFFFFFFFFFFFFFFFF837777737878F87738F838378888777FF337
    77737878F7F787F7777777787378F788F8F888FFF77738F838FFF88FFFF8FFFF
    FFFFFFFFFF8FFFFF8FFFFFFFFFFFFFFFFF88888FFFFFFFFFFFFFFFFFFFFFF88F
    F8BBBB8F777766EFFFFFFFFFFFFFF7988BBBB88704444076EEFFFFFFFFFFFFF3
    3BBB880088CCC7770EEEFFFFFFFFFFF8BBB8F700287CCC78706EEEFFFFFFFFF8
    BBB88000078CCCC7870EEEEFFFFFFFF8BBBF70000077CCCC7870EEEEFFFFFFF8
    BBBF71100007CCCCC7836EEEEFFFFFF8BBBF71710006774CCC880EEEEEFF88F8
    BBBF74555008FF704C7806EEEEEF79993BBF74CCCC4FEEF70C7870EEEEEFFFFF
    BBB884CCCCC8EEF704C880EEEEEEFFFF8BB8F4CCCCC788F704C8846EEEEEFFFF
    FBBBF74CCCCC78700058806EEEEEFFFFF8BB880CCCCC60000007706EEEEEFFFF
    FFBBBF80CCCC6200000010EEEEEFFFFFFF8BBBF74CCCA200000000EEEE8FFFF8
    8778BB8F70C7AA00000006E8EFFFFFF798FFBBB8F707AA0000007888FFFFFFFF
    FFFFFBBB8F87020000078BBBFFFFFFFFFFFFF8BBBB8F877007788BBBFFFFFFFF
    FFFFFF8BBBBB88FFF88BBBBBFFFFFFFFFFFFFF878BBBBBBBBBBBBBBBFFFFFFFF
    FFFFFF98F8BBBBBBBBBBBBB8FFFFFFFFFFFFF99FFF88BBBBBBBBBB8FFFFFFFFF
    FFFFF88FFFFFF8BBBBBBB8FFFFFFFFFFFFFFFFFFFFFFFFF88888FFFFFFFF0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 337
    Top = 61
    Width = 4
    Height = 271
    Cursor = crHSplit
    ResizeStyle = rsUpdate
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 332
    Width = 719
    Height = 4
    Cursor = crVSplit
    Align = alBottom
  end
  object pDrivesDir: TPanel
    Left = 341
    Top = 61
    Width = 378
    Height = 271
    HelpContext = 1003
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 1
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Splitter3: TSplitter
      Left = 209
      Top = 28
      Width = 3
      Height = 242
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 376
      Height = 27
      HelpContext = 1005
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object DriveCB: TDriveComboBox
        Left = 1
        Top = 2
        Width = 314
        Height = 19
        HelpContext = 1006
        DirList = lbDir
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object Panel12: TPanel
        Left = 318
        Top = 0
        Width = 58
        Height = 27
        HelpContext = 1007
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        OnResize = Panel12Resize
        object bNetwork: TBitBtn
          Left = 1
          Top = 1
          Width = 56
          Height = 24
          Caption = 'Network'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = bNetworkClick
        end
      end
    end
    object Panel11: TPanel
      Left = 212
      Top = 28
      Width = 165
      Height = 242
      HelpContext = 1009
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel11'
      TabOrder = 2
      object lbFiles: TFileListBox
        Left = 0
        Top = 0
        Width = 165
        Height = 242
        HelpContext = 1010
        Align = alClient
        DragMode = dmAutomatic
        FileType = [ftReadOnly, ftHidden, ftSystem, ftVolumeID, ftArchive, ftNormal]
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ItemHeight = 14
        MultiSelect = True
        ParentFont = False
        TabOrder = 0
      end
    end
    object lbDir: TDirectoryListBox
      Left = 1
      Top = 28
      Width = 208
      Height = 242
      HelpContext = 1011
      Align = alLeft
      DragMode = dmAutomatic
      FileList = lbFiles
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 1
    end
  end
  object pDiscFiles: TPanel
    Left = 0
    Top = 61
    Width = 337
    Height = 271
    HelpContext = 1012
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object clBox: TListView
      Left = 0
      Top = 28
      Width = 337
      Height = 243
      HelpContext = 1019
      Align = alClient
      Checkboxes = True
      Columns = <
        item
          Caption = 'R'
          MaxWidth = 23
          MinWidth = 23
          Width = 23
        end
        item
          AutoSize = True
          Caption = 'Name'
        end
        item
          Alignment = taRightJustify
          Caption = 'Size '
          MaxWidth = 100
          MinWidth = 70
          Width = 100
        end>
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      GridLines = True
      HotTrack = True
      RowSelect = True
      ParentFont = False
      PopupMenu = PopupMenu2
      TabOrder = 0
      ViewStyle = vsReport
      OnEditing = clBoxEditing
      OnDragDrop = clBoxDragDrop
      OnDragOver = clBoxDragOver
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 337
      Height = 28
      HelpContext = 1013
      Align = alTop
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      object bSaveISO: TBitBtn
        Left = 1
        Top = 1
        Width = 69
        Height = 26
        Hint = 'Build and Save .ISO Image'
        Caption = 'Build .ISO'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = bSaveISOClick
      end
      object bBurnISO: TBitBtn
        Left = 72
        Top = 1
        Width = 69
        Height = 26
        Hint = 'Start Burning'
        Caption = 'Burn .ISO'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = bBurnISOClick
      end
      object Panel10: TPanel
        Left = 185
        Top = 0
        Width = 152
        Height = 28
        HelpContext = 1016
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 2
        object bClear: TBitBtn
          Left = 102
          Top = 1
          Width = 49
          Height = 26
          Caption = 'Clear'
          TabOrder = 1
          OnClick = bClearClick
        end
        object cPathInfo: TCheckBox
          Left = 15
          Top = 3
          Width = 82
          Height = 24
          Hint = 'Preserve directory structure'
          HelpContext = 1018
          Alignment = taLeftJustify
          AllowGrayed = True
          Caption = 'Save path'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          State = cbGrayed
          TabOrder = 0
          OnClick = cPathInfoClick
        end
      end
    end
  end
  object pTop: TPanel
    Left = 0
    Top = 0
    Width = 719
    Height = 31
    HelpContext = 1020
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object lDrive: TLabel
      Left = 5
      Top = 8
      Width = 39
      Height = 14
      Caption = ' Drive :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object bCaps: TBitBtn
      Left = 376
      Top = 3
      Width = 28
      Height = 23
      Hint = 'Drive capabilities'
      Caption = '...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = bCapsClick
    end
    object bDisc: TBitBtn
      Left = 517
      Top = 3
      Width = 56
      Height = 25
      Hint = 'Disc & Session information (Extract file from any session)'
      Caption = 'Disc Info'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = bDiscClick
    end
    object cbDrives: TComboBox
      Left = 55
      Top = 3
      Width = 320
      Height = 22
      HelpContext = 1024
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12