用Delphi的人对TMediaPlayer组件比较熟悉，它是一个相当出色的多用途的多媒体组件，但是美中不足的是：如果CDROM光驱的仓门打开就不能自动关闭。而且不幸的是，TMediaPlayer的方法和属性中没有解决这个问题的办法，所以我们不得不求助于Windows API，具体一些就是使用MMSystem.pas文件，另外一件需要注意的事是：我们可以单独调用Windows API函数，但是TMediaPlayer做了一些内部处理，所以我们就不必担心我们是否使用了组件。所以本例中使用了TMediaPlayer。-with Delphi TMediaPlayer the right components are more familiar with, It is a fairly remarkable versatility of the multimedia components, but the fly in the ointment is : If CDROM drive on the open Cangmen not shut down automatically. But unfortunately, TMediaPlayer methods and properties not solved the problem, Therefore, we have to seek help from the Windows API, is the use of specific MMSystem.pas documents, the other one thing to consider is : We can separate calling Windows API function, But TMediaPlayer done some internal processing, Therefore, we would not have to worry about whether we use the component. Therefore, the cases used TMediaPlayer.