main.dfm

delphi环境下avi的播放演示程序编译即可使用。

object Form1: TForm1
  Left = 191
  Top = 183
  BorderStyle = bsToolWindow
  Caption = 'AVI播放器'
  ClientHeight = 18
  ClientWidth = 446
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 446
    Height = 2
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object MediaPlayer1: TMediaPlayer
      Left = 4
      Top = 100
      Width = 225
      Height = 30
      Enabled = False
      VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btEject]
      TabOrder = 0
    end
    object TrackBar1: TTrackBar
      Left = 4
      Top = 48
      Width = 221
      Height = 45
      Enabled = False
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBar1Change
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = -1
    Width = 446
    Height = 19
    Panels = <
      item
        Text = ' 总长度：00时00分00秒'
        Width = 135
      end
      item
        Text = ' 已播放：00时00分00秒'
        Width = 135
      end
      item
        Text = ' 剩余时间：00时00分00秒'
        Width = 135
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 304
    Top = 64
    object N1: TMenuItem
      Caption = '文件'
      object N2: TMenuItem
        Caption = '打开文件'
        OnClick = N2Click
      end
      object N15: TMenuItem
        Caption = '关闭设备'
        Enabled = False
        OnClick = N15Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Caption = '退出'
        OnClick = N4Click
      end
    end
    object N16: TMenuItem
      Caption = '控制'
      object N17: TMenuItem
        Caption = '播放'
        OnClick = N17Click
      end
      object N18: TMenuItem
        Caption = '暂停'
        OnClick = N18Click
      end
      object N19: TMenuItem
        Caption = '停止'
        OnClick = N19Click
      end
      object N20: TMenuItem
        Caption = '快进'
        Enabled = False
      end
      object N21: TMenuItem
        Caption = '快退'
        Enabled = False
      end
    end
    object N10: TMenuItem
      Caption = '音频'
      Enabled = False
      object N11: TMenuItem
        Caption = '增加音量'
      end
      object N12: TMenuItem
        Caption = '减小音量'
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object N14: TMenuItem
        Caption = '静音'
      end
      object N151: TMenuItem
        Caption = '1/5音量'
      end
      object N251: TMenuItem
        Caption = '2/5音量'
      end
      object N351: TMenuItem
        Caption = '3/5音量'
      end
      object N451: TMenuItem
        Caption = '4/5音量'
      end
      object N551: TMenuItem
        Caption = '最大音量'
      end
    end
    object N5: TMenuItem
      Caption = '图像'
      object N6: TMenuItem
        Caption = '全屏幕'
        OnClick = N6Click
      end
      object N9: TMenuItem
        Caption = '恢复视窗'
        OnClick = N9Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = '关于...'
        OnClick = N8Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'AVI文件|*.avi|所有文件|*.*'
    Left = 312
    Top = 24
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 18
    Top = 18
  end
end