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

WinHack

Администратор
23 Фев 2015
2,907
1,916
bsfo.ru
Для остановки воспроизведения звука нужно просто вызвать эту же функцию воспроизведения с переданным параметром 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;