Delphi - Két, vagy több WAV állomány egyidejű lejátszása

forráskód letöltése
E példából megtudható, hogy miként bírhatjuk rá számítógépünket arra, hogy egy időben több WAV állományt is lejátsszon. A mellékelt program a Windows-hoz mellékelt ding és tada nevű WAV állományokat próbálja lejátszani. Ha az adott gépen hiányozna e két állomány, akkor módosítsa a forráskódban lévő két elérési útvonalat két létező WAV állományra.

A lejátszáshoz szükséges utasításokat az mciSendString függvénnyel küldjük.
procedure TForm1.Button1Click(Sender: TObject);
begin
Első lépésként megnyitjuk az eszközt, megosztott (shareable) módban és így lehetőség nyílik a fenti probléma megoldására.
  mciSendString('open waveaudio shareable', nil, 0, 0);
Ezt követően a play parancssal elindíthatjuk a kívánt hang állományok lejátszását.
  mciSendString('play C:\WINDOWS\Media\ding.wav', nil, 0, 0);
  mciSendString('play C:\WINDOWS\Media\tada.wav', nil, 0, 0);
Végül zárjuk a megadott eszközt.
  mciSendString('close waveaudio', nil, 0, 0);
end;