mp3demo.dfm

mp3演示程序

        FFFFFF0000000000000000000000000000000000000000000000000000000000
        8000000000000000F00000000000000000000000008000000000000000F00000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000FFFF0000FF1F0000FE0F0000FE0F0000C60F0000830F000083EF0000
        83EF0000C3EF0000FBEF0000FB8F0000FB0F0000F80F0000F83F0000F8FF0000
        F9FF0000}
    end
    object FileText: TStaticText
      Left = 4
      Top = 3
      Width = 224
      Height = 33
      AutoSize = False
      BorderStyle = sbsSunken
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = 16744448
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      OnMouseDown = CaptionPanelMouseDown
    end
    object LengthText: TStaticText
      Left = 119
      Top = 38
      Width = 109
      Height = 20
      AutoSize = False
      BorderStyle = sbsSunken
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = 16744448
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      OnMouseDown = CaptionPanelMouseDown
    end
    object PositionText: TStaticText
      Left = 4
      Top = 38
      Width = 112
      Height = 20
      AutoSize = False
      BorderStyle = sbsSunken
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = 16744448
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 2
      OnMouseDown = CaptionPanelMouseDown
    end
  end
  object CaptionPanel: TPanel
    Left = 0
    Top = 0
    Width = 402
    Height = 21
    Align = alTop
    BevelInner = bvRaised
    Color = 13395456
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnDblClick = CaptionPanelDblClick
    OnMouseDown = CaptionPanelMouseDown
    object MinimizeButton: TSpeedButton
      Left = 353
      Top = 3
      Width = 23
      Height = 16
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888888888888888800000000000
        0088808888888888808880888888888880888088888888888088808888888888
        8088808888888888808880888888888880888088888888888088800000000000
        0088888888888888888888888888888888888888888888888888}
      OnClick = MinimizeButtonClick
    end
    object CloseButton: TSpeedButton
      Left = 377
      Top = 3
      Width = 23
      Height = 16
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888808888888888088800088888888888880000888888
        8088888000888888088888880008888008888888800088008888888888000008
        8888888888800088888888888800000888888888800088008888888000088880
        0888880000888888008888000888888888088888888888888888}
      OnClick = CloseButtonClick
    end
    object CaptionLabel: TLabel
      Left = 20
      Top = 2
      Width = 104
      Height = 16
      Caption = 'MCI MP3 Player Demo'
      Color = 10921472
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Impact'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      OnDblClick = CaptionPanelDblClick
      OnMouseDown = CaptionPanelMouseDown
    end
    object SysIconImage: TImage
      Left = 3
      Top = 3
      Width = 16
      Height = 16
      AutoSize = True
      Picture.Data = {
        055449636F6E0000010001001010100000000000280100001600000028000000
        10000000200000000100040000000000C0000000000000000000000000000000
        0000000000000000000080000080000000808000800000008000800080800000
        80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
        FFFFFF0000000000000000000000000000000000000000000000000000000000
        8000000000000000F00000000000000000000000008000000000000000F00000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000FFFF0000FF1F0000FE0F0000FE0F0000C60F0000830F000083EF0000
        83EF0000C3EF0000FBEF0000FB8F0000FB0F0000F80F0000F83F0000F8FF0000
        F9FF0000}
      PopupMenu = PopupMenu1
      Transparent = True
      OnClick = SysIconImageClick
    end
  end
  object ProgressPanel: TPanel
    Left = 7
    Top = 86
    Width = 258
    Height = 13
    BevelOuter = bvLowered
    Color = 10526880
    TabOrder = 2
    OnMouseDown = CaptionPanelMouseDown
    object ProgressPanelBar: TPanel
      Left = 2
      Top = 2
      Width = 0
      Height = 9
      BevelOuter = bvNone
      Color = 13395456
      TabOrder = 0
    end
  end
  object MP3Timer: TTimer
    Enabled = False
    Interval = 450
    OnTimer = MP3TimerTimer
    Left = 41
    Top = 30
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 13
    Top = 30
    object MCICDPlayerDemo1: TMenuItem
      AutoHotkeys = maManual
      AutoLineReduction = maManual
      Caption = '" MCI MP3 Player Demo "'
    end
    object C2000DamonChandler1: TMenuItem
      AutoHotkeys = maManual
      AutoLineReduction = maManual
      Caption = '(C) 2000, Damon Chandler'
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Play1: TMenuItem
      Caption = 'Play'
      ShortCut = 16464
      OnClick = PlayButtonClick
    end
    object Pause1: TMenuItem
      Caption = 'Pause'
      ShortCut = 16451
      OnClick = PauseButtonClick
    end
    object Stop1: TMenuItem
      Caption = 'Stop'
      ShortCut = 16467
      OnClick = StopButtonClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      ShortCut = 16472
      OnClick = CloseButtonClick
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Audio Files (*.mp2, *.mp3, *.wav)|*.MP2;*.MP3;*.WAV'
    Left = 69
    Top = 30
  end
end