Activar o detener la reproducción de sonido.

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.