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;