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

功能说明: （本系统提供两门课程的定卷，考试， 判卷，查分功能） （1）自动生成试卷（即定卷过程） 此功能分（3）种方式 1.由系统完成试卷随机生成的全部过程。 -Function: (The system provides two courses of a given volume, the examination, Graders, check point function) (1) automatic generation