mciSendString - wie Ausgabe anhalten? /wie notify auswerten?

[mcmichael]

Hallo Experten,

nachdem ich mir einiges nützliches Wissen aus diesen Forum angesammelt habe kann
ich nun gleichzeitig mehrere Audiodateien ausgeben und auch eine Benachrichtigung
einschalten wenn die Ausgabe beendet ist.

Delphi-Quellcode:

SendMCICommand('open waveaudio shareable');
SendMCICommand('open "b.mp3"');
SendMCICommand('play "b.mp3" notify');
SendMCICommand('open "a.wav"');
SendMCICommand('play "a.wav" notify');

Benachrichtigung:

Delphi-Quellcode:

procedure TForm1.MMNotify(var Message: TMessage);
begin
ListBox1.Items.Add('Fertig um '+TimeToStr(now));
end;

Die Benachrichtigung klappt. Aber wie stelle ich fest, welche
der vielen Audiodateien nun gerade beendet wurde?


Anhalten:
SendMCICommand('stop "b.mp3"'); hiermit kann ich explizit die Ausgabe von b.mp3 anhalten.
Aber wie kann ich einfach alle derzeit ausgegebenen Audiodateien anhalten?
Bei Beendigung des Programms werden alle angehalten.
Stop oder Close funktionieren m.E. nur mit Nennung einer expliziten Datei
oder Aliasnamen der sich auf eine Datei bezieht...

Hat jemand eine Idee?