Начать или остановить воспроизведение звука

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

  1. WinHack
    Для остановки воспроизведения звука нужно просто вызвать эту же функцию воспроизведения с переданным параметром NIL.

    Код:
    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;