unit1.~dfm

非常实用本人心血研制不是为了更多我需要的代码不会轻易拿出来换东东的关于盘刻录程序代码

object Form1: TForm1
  Left = 238
  Top = 156
  BorderStyle = bsDialog
  Caption = 'Ver1.05'
  ClientHeight = 385
  ClientWidth = 600
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 600
    Height = 201
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 0
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 185
      Height = 199
      Align = alLeft
      Caption = 'Panel2'
      TabOrder = 0
      object D1: TDirectoryListBox
        Left = 1
        Top = 1
        Width = 183
        Height = 197
        Align = alClient
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        ItemHeight = 16
        TabOrder = 0
        OnChange = D1Change
      end
      object Button2: TButton
        Left = 32
        Top = 168
        Width = 75
        Height = 25
        Caption = 'Button2'
        TabOrder = 1
        OnClick = Button2Click
      end
    end
    object Panel3: TPanel
      Left = 186
      Top = 1
      Width = 127
      Height = 199
      Align = alLeft
      Caption = 'Panel3'
      TabOrder = 1
      object F1: TFileListBox
        Left = 1
        Top = 1
        Width = 125
        Height = 197
        Align = alClient
        FileType = [ftDirectory]
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        ItemHeight = 13
        PopupMenu = PopupMenu2
        TabOrder = 0
        OnDblClick = F1DblClick
      end
      object Button1: TButton
        Left = 8
        Top = 168
        Width = 75
        Height = 25
        Caption = #28155#21152#20219#21153
        TabOrder = 1
        Visible = False
        OnClick = Button1Click
      end
      object Rr0: TCDWriterXP
        Left = 16
        Top = 96
        Width = 32
        Height = 32
        OnWritingComplete = Rr0WritingComplete
        OnTrackWriteStatus = Rr0TrackWriteStatus
        ControlData = {
          090001004F0300004F0300000000000015304F36413244364D315A394D395339
          47324E324342000100010101000000010000000AB5C4B4F3C9F9CBB5B5C4000A
          434457524954455258500A434457524954455258500A43445752495445525850
          000000}
      end
    end
    object Panel4: TPanel
      Left = 492
      Top = 1
      Width = 107
      Height = 199
      Align = alRight
      Caption = 'Panel4'
      TabOrder = 2
      object F2: TFileListBox
        Left = 1
        Top = 1
        Width = 105
        Height = 197
        Align = alClient
        Enabled = False
        FileType = [ftHidden, ftDirectory, ftNormal]
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        ItemHeight = 13
        TabOrder = 0
      end
    end
    object Panel9: TPanel
      Left = 313
      Top = 1
      Width = 179
      Height = 199
      Align = alClient
      Caption = 'Panel9'
      TabOrder = 3
      object l1: TMemo
        Left = 1
        Top = 1
        Width = 177
        Height = 197
        Align = alClient
        PopupMenu = PopupMenu1
        TabOrder = 2
        OnDblClick = l1DblClick
      end
      object Button3: TButton
        Left = 104
        Top = 168
        Width = 75
        Height = 25
        Caption = #20840#37096#21024#38500#20219#21153
        TabOrder = 0
        Visible = False
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 16
        Top = 168
        Width = 75
        Height = 25
        Caption = #20445#23384#20219#21153
        TabOrder = 1
        Visible = False
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 56
        Top = 128
        Width = 75
        Height = 25
        Caption = #26174#31034#20219#21153
        TabOrder = 3
        Visible = False
        OnClick = Button5Click
      end
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 200
    Width = 600
    Height = 185
    Align = alBottom
    TabOrder = 1
    object Pa1: TPanel
      Left = 1
      Top = 1
      Width = 185
      Height = 183
      Align = alLeft
      Caption = 'Pa1'
      TabOrder = 0
      Visible = False
      object ProgressBar0: TProgressBar
        Left = 160
        Top = 23
        Width = 24
        Height = 159
        Align = alRight
        Orientation = pbVertical
        Smooth = True
        TabOrder = 0
      end
      object Panel12: TPanel
        Left = 1
        Top = 1
        Width = 183
        Height = 22
        Align = alTop
        Caption = 'Panel12'
        TabOrder = 1
        object SpeedButton1: TSpeedButton
          Left = 1
          Top = 8
          Width = 15
          Height = 9
          OnClick = SpeedButton1Click
        end
        object SpeedButton4: TSpeedButton
          Left = 160
          Top = 0
          Width = 25
          Height = 25
          Caption = #20851
        end
        object CDRW0: TButton
          Left = 56
          Top = 0
          Width = 75
          Height = 25
          Caption = #20809#30424'-0'
          TabOrder = 0
          OnClick = CDRW0Click
        end
      end
      object Li0: TListBox
        Left = 1
        Top = 23
        Width = 159
        Height = 159
        Align = alClient
        ItemHeight = 13
        PopupMenu = PopupMenu3
        TabOrder = 2
        OnDblClick = Li1DblClick
      end
    end
    object Pa3: TPanel
      Left = 393
      Top = 1
      Width = 208
      Height = 183
      Align = alLeft
      Caption = 'Pa3'
      TabOrder = 1
      Visible = False
      object Panel7: TPanel
        Left = 1
        Top = 1
        Width = 206
        Height = 22
        Align = alTop
        Caption = 'Panel12'
        TabOrder = 0
        object SpeedButton3: TSpeedButton
          Left = 8
          Top = 8
          Width = 17
          Height = 9
          OnClick = SpeedButton1Click
        end
        object CDRW2: TButton
          Left = 64
          Top = 0
          Width = 75
          Height = 25
          Caption = 'CDRW-2'
          TabOrder = 0
          OnClick = CDRW0Click
        end