用Delphi的人对TMediaPlayer组件比较熟悉，它是一个相当出色的多用途的多媒体组件，但是美中不足的是：如果CDROM光驱的仓门打开就不能自动关闭。而且不幸的是，TMediaPlayer的方法和属性中没有解决这个问题的办法，所以我们不得不求助于Windows API，具体一些就是使用MMSystem.pas文件，另外一件需要注意的事是：我们可以单独调用Windows API函数，但是TMediaPlayer做了一些内部处理，所以我们就不必担心我们是否使用了组件。所以本例中使用了TMed