Código Delphi [-]uses MMSystem; procedure TForm1.Timer1Timer(Sender: TObject); begin waveOutSetVolume(0, 0); end;
uses MMSystem; procedure TForm1.Timer1Timer(Sender: TObject); begin waveOutSetVolume(0, 0); end;