unit1.~dfm

多媒体播放器 可随意载,本人没意见,呵呵,为了大家学习

object Form1: TForm1
  Left = 185
  Top = 136
  Width = 829
  Height = 574
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 821
    Height = 26
    AutoSize = True
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = 'ToolButton1'
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 2
      Caption = 'ToolButton2'
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton4: TToolButton
      Left = 46
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ToolButton3: TToolButton
      Left = 54
      Top = 2
      Caption = 'ToolButton3'
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton5: TToolButton
      Left = 77
      Top = 2
      Caption = 'ToolButton5'
      ImageIndex = 3
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 100
      Top = 2
      Caption = 'ToolButton6'
      ImageIndex = 4
    end
    object ToolButton7: TToolButton
      Left = 123
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ToolButton8: TToolButton
      Left = 131
      Top = 2
      Caption = 'ToolButton8'
      ImageIndex = 5
      OnClick = ToolButton8Click
    end
    object ToolButton9: TToolButton
      Left = 154
      Top = 2
      Caption = 'ToolButton9'
      ImageIndex = 6
      OnClick = ToolButton9Click
    end
    object ToolButton11: TToolButton
      Left = 177
      Top = 2
      Caption = 'ToolButton11'
      ImageIndex = 7
      OnClick = ToolButton11Click
    end
    object ComboBox1: TComboBox
      Left = 200
      Top = 2
      Width = 154
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'ComboBox1'
    end
    object ComboBox2: TComboBox
      Left = 354
      Top = 2
      Width = 56
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = 'ComboBox2'
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 501
    Width = 821
    Height = 19
    Panels = <>
  end
  object RichEdit1: TRichEdit
    Left = 0
    Top = 26
    Width = 821
    Height = 475
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'RichEdit1')
    ParentFont = False
    TabOrder = 2
  end
  object MainMenu1: TMainMenu
    Left = 376
    Top = 256
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N1: TMenuItem
        Caption = #26032#24314'(&N)'
        ShortCut = 16462
        OnClick = N1Click
      end
      object O1: TMenuItem
        Caption = #25171#24320'(&O)...'
        ShortCut = 16463
        OnClick = O1Click
      end
      object S1: TMenuItem
        Caption = #20445#23384'(&S)'
        ShortCut = 16467
        OnClick = S1Click
      end
      object A1: TMenuItem
        Caption = #21478#23384#20026'(&A)...'
        OnClick = A1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object P1: TMenuItem
        Caption = #25171#21360'(P)...'
        ShortCut = 16464
        OnClick = P1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N5: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = N5Click
      end
    end
    object E1: TMenuItem
      Caption = #32534#36753'(&E)'
      object U1: TMenuItem
        Caption = #25764#28040'(&U)'
        ShortCut = 16474
        OnClick = U1Click
      end
      object N15: TMenuItem
        Caption = #37325#20570'(&R)'
        ShortCut = 16466
        OnClick = N15Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object T1: TMenuItem
        Caption = #21098#20999'(&T)'
        ShortCut = 16472
        OnClick = T1Click
      end
      object N7: TMenuItem
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
        OnClick = N7Click
      end
      object P2: TMenuItem
        Caption = #31896#36148'(&P)'
        ShortCut = 16470
        OnClick = P2Click
      end
      object L1: TMenuItem
        Caption = #21024#38500'(&L)'
        ShortCut = 46
        OnClick = L1Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #26597#25214'(F)...'
        ShortCut = 16454
        OnClick = N9Click
      end
      object N17: TMenuItem
        Caption = #26367#25442'(&R)'
        ShortCut = 16456
        OnClick = N17Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N11: TMenuItem
        Caption = #20840#36873'(&A)'
        ShortCut = 16449
        OnClick = N11Click
      end
      object N16: TMenuItem
        Caption = #26102#38388'/'#26085#26399
        ShortCut = 116
        OnClick = N16Click
      end
    end
    object W1: TMenuItem
      Caption = #26684#24335'(&O)'
      object W2: TMenuItem
        Caption = #33258#21160#25442#34892'(&W)'
        OnClick = W2Click
      end
      object A3: TMenuItem
        Caption = #23545#40784#26041#24335'(&A)'
        object N21: TMenuItem
          Caption = #20004#31471#23545#40784
        end
        object N22: TMenuItem