Reference for package '#rtl'

NoSound

Stop system speaker

Declaration

Source position: crth.inc line 97

  procedure NoSound;

Description

NoSound stops the speaker sound. This call is not supported on all operating systems.

Errors

None.

See also

Name Description
Sound Sound system speaker

Example

Program Example16;
uses Crt;
{ Program to demonstrate the Sound and NoSound function. }
var
  i : longint;
begin
  WriteLn('You will hear some tones from your speaker');
  i:=0;
  while (i<15000) do
   begin
     inc(i,500);
     Sound(i);
     Delay(100);
   end;
  WriteLn('Quiet now!');
  NoSound; {Stop noise}
end.