unit2.~dfm

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

object Form2: TForm2
  Left = 192
  Top = 133
  BorderStyle = bsNone
  Caption = 'Form2'
  ClientHeight = 293
  ClientWidth = 354
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 354
    Height = 293
    Align = alClient
    BorderStyle = bsSingle
    Caption = '王 明 潭 设 计 制 作'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -32
    Font.Name = '华文行楷'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 0
  end
  object PopupMenu1: TPopupMenu
    Left = 82
    Top = 106
    object N1: TMenuItem
      Caption = '播放'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '暂停'
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '停止'
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = '快进'
      Enabled = False
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = '快退'
      Enabled = False
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Caption = '增加音量'
    end
    object N8: TMenuItem
      Caption = '减小音量'
    end
    object N9: TMenuItem
      Caption = '音量控制'
      object N13: 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 N14: TMenuItem
        Caption = '最大音量'
      end
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object N11: TMenuItem
      Caption = '全屏幕'
      OnClick = N11Click
    end
    object N12: TMenuItem
      Caption = '恢复视窗'
      OnClick = N12Click
    end
    object N16: TMenuItem
      Caption = '-'
    end
    object N17: TMenuItem
      Caption = '关于...'
      OnClick = N17Click
    end
    object N15: TMenuItem
      Caption = '退出程序'
      OnClick = N15Click
    end
  end
end