Delphi编写媒体播放器两步曲
进入Ｄｅｌｐｈｉ集成环境后，屏幕将自动产生一个名为Ｆｏｒｍ１的窗体（该窗体可以任意改变大小）。我们首先在元件模板（Ｃｏｍｐｏｎｅｎｔ Ｐａｌｅｔｔｅ）中的Ｓｙｓｔｅｍ页上选取ＭｅｄｉａＰｌａｙｅｒ（媒体播放器）组件加在Ｆｏｒｍ１中作为播放器的播放控制界面。在Ｓｔａｎｄａｒｄ页中选取ＭａｉｎＭｅｎｕ（主菜单）组件作为播放器的外部控制菜单。在Ｄｉａｌｏｇ页中选取ＯｐｅｎＤｉａｌｏｇ（打开对话框）组件并放入Ｆｏｒｍ１中。
在Ｆｏｒｍ１中双击ＭａｉｎＭｅｎｕ组件后并在Ｏｂｊｅｃｔ Ｉｎｓｐｅｃｔｏｒ（对象检测器）中将其Ｃａｐｔｉｏｎ属性改为“文件＆Ｆ”，这时可以看见在Ｆｏｒｍ１．ＭａｉｎＭｅｎｕ１中第一个菜单项已成为“文件Ｆ”，用同样方法我们可以写出“文件”的子菜单“打开文件”、“关闭文件”、“ＣＤ播放”、“退出系统”，另外还可以写一个“帮助”菜单并在其子菜单中写入“关于．．．”。此外你还可以在Ｏｂｊｅｃｔ Ｉｎｓｐｅｃｔｏｒ中的ＳｈｏｒｔＣｕｔ属性中选择你喜好的快捷方式。
在Ｆｏｒｍ１中双击ＯｐｅｎＤｉａｌｏｇ组件，在Ｏｂｊｅｃｔ Ｉｎｓｐｅｃｔｏｒ中选择Ｆｉｌｔｅｒ属性，单击后面的图标“．．．”，在弹出的表格中填入多媒体文件类型及过滤器。如下表所示。
ＦｉｌｔｅｒＮａｍｅ Ｆｉｌｔｅｒ
所有文件（＊．＊） ＊．＊
声音文件（＊．ｗａｖ） ＊．ｗａｖ
ＭＩＤＩ序列发生器 ＊．ｍｉｄ
＊．ｒｍｉ
ＶＣＤ播放 ＊．ｄａｔ
Ｖｉｄｅｏｆｏｒ
Ｗｉｎｄｏｗｓ ＊．ａｖｉ
ＭｐｅｇＦｉｌｅｓ ＊．ｍｐｇ
＊．ｍｐｖ
＊．ｖｂｓ
最后把Ｆｏｒｍ１的Ｃａｐｔｉｏｎ属性改为“我的媒体播放器”。至此播放界面制作全部完成。
#3 ２．编写事件处理程序
①打开文件事件处理
单击文件菜单，选中并双击“打开文件”，填入下列语句：
ＯｐｅｎＤｉａｌｏｇ１．Ｅｘｅｃｕｔｅ；
ＭｅｄｉａＰｌａｙｅｒ１．ＤｅｖｉｃｅＴｙｐｅ：＝ｄｔＡｕｔｏＳｅｌｅｃｔ；
ＭｅｄｉａＰｌａｙｅｒ１．ＦｉｌｅＮａｍｅ：＝ＯｐｅｎＤｉａｌｏｇ１．ＦｉｌｅＮａｍｅ；
ｉｆ ＭｅｄｉａＰｌａｙｅｒ１．ＦｉｌｅＮａｍｅ＜＞
ｔｈｅｎ ＭｅｄｉａＰｌａｙｅｒ１．ｏｐｅｎ；
②关闭文件事件处理
单击“文件”菜单，选中并双击“关闭文件”，填入下列语句：
ＭｅｄｉａＰｌａｙｅｒ１．ＦｉｌｅＮａｍｅ：＝；
ＭｅｄｉａＰｌａｙｅｒ１．ｃｌｏｓｅ；
③ＣＤ播放事件处理
单击“文件”菜单，双击“ＣＤ播放”，填入下列语句：
ＭｅｄｉａＰｌａｙｅｒ１．ＤｅｖｉｃｅＴｙｐｅ：＝ｄｔＣＤＡｕｄｉｏ；
ＭｅｄｉａＰｌａｙｅｒ１．ＦｉｌｅＮａｍｅ：＝；
ＭｅｄｉａＰｌａｙｅｒ１．ｏｐｅｎ；
④退出系统事件处理
单击“文件”菜单，选中并双击“退出系统”，填入下列语句：
ｃｌｏｓｅ；
⑤关于．．．事件处理
在Ｄｅｌｐｈｉ的Ｆｉｌｅ主菜单中选择Ｎｅｗ．．．中的Ｆｏｒｍｓ下Ａｂｏｕｔ ｂｏｘ。按照对话框中提示在Ｃａｐｔｉｏｎ属性中填入产品名、版本号，双击位图后出现一个Ｐｉｃｔｕｒｅ Ｅｄｉｔｏｒ对话框，然后加载一个位图（＊．ｂｍｐ）。双击Ａｂｏｕｔ ｂｏｘ对话框中ＯＫ按钮填入语句：
ＡｂｏｕｔＢｏｘ．ｃｌｏｓｅ；
回到Ｆｏｒｍ１，选中并双击“帮助”菜单下“关于．．．”，填入下列语句：
ＡｂｏｕｔＢｏｘ．ｓｈｏｗ；
至此，播放程序全部制作完毕。
（本程序在Ｄｅｌｐｈｉ ２．０下运行通过。）