Para detener la reproducción tan sólo hay que llamar de nuevo a la función facilitando Nil como primer parámetro. Tras insertar dos botones en un formulario, he incluido el código siguiente:
procedure TForm1.Button2Click(Sender: TObject); begin SndPlaySound('c:\windows\media\tada.wav', SND_LOOP Or SND_ASYNC); end; procedure TForm1.Button3Click(Sender: TObject); begin SndPlaySound(Nil, 0); end;
Uno inicia la reproducción repetitiva y el otro la detiene.