关于MediaPlayer播放声音的控制——没有可用分了，请大家帮忙吧

Question

在程序中，某一消息到达我要用声音通知，如果这消息来一条没有问题，如果消息接连着来了好多条，这时的声音就会混在一起，我想实现的是：在播放完一个声音之前，即使其它消息到了，也不播放声音，只有当前的声音播放结束，再有消息到的时候才揪放，怎么实现？

Answer 1

一个TrackBar解决
procedure TForm1.TrackBar1Change(Sender: TObject);
var  
t,v,lmax:Longint;
begin
    lmax := TrackBar1.Max;
    t:= lmax - TrackBar1.Position;
    v:=(t  shl  8)or(t  shl  24);
    waveOutSetVolume(0,v);
end;

Answer 2

哦,看错了. 
改为:
处理消息时写以下代码
if MediaPlayer1.Mode = mpPlaying then exit;