Ⅰ 易語言視頻播放器源碼
易語言的支持庫常式裡面有，具體打開易語言
如下：
.版本 2
.支持庫 eMMedia
.支持庫 iext2
.程序集 窗口程序集1
.子程序 _播放按鈕_被單擊
媒體播放1.播放 (-1)
媒體播放1.取長度 ()
.子程序 _暫停按鈕_被單擊
.如果 (媒體播放1.取狀態 () ＝ 1)
媒體播放1.暫停 ()
.否則
媒體播放1.播放 (媒體播放1.取位置 ())
.如果結束
.子程序 _停止按鈕_被單擊
媒體播放1.停止 ()
.子程序 _打開_被選擇
通用對話框1.過濾器 ＝ 「媒體文件|*.wav;*.mid;*.avi;*.mpg;*.mp3;*.wmv;*.rm」
.如果真 (通用對話框1.打開 () ＝ 真)
媒體播放1.打開 (通用對話框1.文件名)
.如果 (媒體播放1.是否視頻 () ＝ 真)
_啟動窗口.標題 ＝ 「視頻文件」
.否則
_啟動窗口.標題 ＝ 「聲音文件」
.如果結束
.如果真結束
.子程序 __啟動窗口_創建完畢
播放按鈕.圖片 ＝ 取圖片組圖片 (#圖片組, 0, 取默認底色 ())
暫停按鈕.圖片 ＝ 取圖片組圖片 (#圖片組, 1, 取默認底色 ())
停止按鈕.圖片 ＝ 取圖片組圖片 (#圖片組, 2, 取默認底色 ())
.子程序 _選擇框1_被單擊
.如果 (選擇框1.選中 ＝ 真)
媒體播放1.置句柄 (分組框1.取窗口句柄 ())
.否則
媒體播放1.置句柄 (0)
.如果結束
.子程序 _媒體信息_被選擇
.局部變數 信息文本, 文本型
信息文本 ＝ 「比率:」 ＋ 到文本 (媒體播放1.取比率 ()) ＋ #換行符 ＋ 「總時間:」 ＋ 到文本 (媒體播放1.取總時間 ()) ＋ #換行符 ＋ 「長度:」 ＋ 到文本 (媒體播放1.取長度 ()) ＋ #換行符 ＋ 「播放位置:」 ＋ 到文本 (媒體播放1.取位置 ()) ＋ #換行符 ＋ 「MCI別名:」 ＋ 媒體播放1.取別名 ()
信息框 (信息文本, 0, )