unit1.dfm

该软件为从任何磁盘读取数据后

object Form1: TForm1
  Left = 175
  Top = 125
  Width = 659
  Height = 584
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 651
    Height = 550
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21457#24067
      object Label1: TLabel
        Left = 48
        Top = 40
        Width = 48
        Height = 13
        Caption = #21407#22522#22320#22336
      end
      object Label2: TLabel
        Left = 32
        Top = 72
        Width = 60
        Height = 13
        Caption = #30446#26631#22522#22320#22336
      end
      object Label3: TLabel
        Left = 32
        Top = 104
        Width = 84
        Height = 13
        Caption = #38656#35201#22797#21046#30340#25991#20214
      end
      object Button1: TButton
        Left = 552
        Top = 8
        Width = 75
        Height = 25
        Caption = #22797#21046
        TabOrder = 0
        OnClick = Button1Click
      end
      object Edit1: TEdit
        Left = 104
        Top = 40
        Width = 537
        Height = 21
        TabOrder = 1
      end
      object Edit2: TEdit
        Left = 104
        Top = 72
        Width = 537
        Height = 21
        TabOrder = 2
      end
      object Memo1: TMemo
        Left = 16
        Top = 120
        Width = 625
        Height = 393
        TabOrder = 3
      end
      object ProgressBar1: TProgressBar
        Left = 16
        Top = 497
        Width = 625
        Height = 25
        Min = 0
        Max = 100
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'mp3'
      ImageIndex = 1
      object Button2: TButton
        Left = 280
        Top = 8
        Width = 75
        Height = 25
        Caption = 'start'
        TabOrder = 0
        OnClick = Button2Click
      end
      object ShellComboBox2: TShellComboBox
        Left = 328
        Top = 56
        Width = 296
        Height = 22
        Root = 'rfDesktop'
        ShellListView = list2
        UseShellImages = True
        DropDownCount = 8
        TabOrder = 1
      end
      object list2: TShellListView
        Left = 328
        Top = 88
        Width = 296
        Height = 401
        ObjectTypes = [otFolders, otNonFolders]
        Root = 'rfDesktop'
        ShellComboBox = ShellComboBox2
        Sorted = True
        ReadOnly = False
        HideSelection = False
        TabOrder = 2
        ViewStyle = vsReport
      end
      object ShellComboBox1: TShellComboBox
        Left = 16
        Top = 56
        Width = 296
        Height = 22
        Root = 'rfDesktop'
        ShellListView = list1
        UseShellImages = True
        DropDownCount = 8
        TabOrder = 3
      end
      object list1: TShellListView
        Left = 16
        Top = 88
        Width = 296
        Height = 401
        ObjectTypes = [otFolders, otNonFolders]
        Root = 'rfDesktop'
        ShellComboBox = ShellComboBox1
        Sorted = True
        ReadOnly = False
        HideSelection = False
        TabOrder = 4
        ViewStyle = vsReport
      end
      object ProgressBar2: TProgressBar
        Left = 16
        Top = 496
        Width = 609
        Height = 17
        Min = 0
        Max = 100
        TabOrder = 5
      end
    end
  end
end