help files
Z505 | PasWiki | FUQ | Search | Main Docs | API Guide



[Overview][Constants][Types][Procedures and functions][Variables] Reference for unit 'Crt' (#rtl)

NoSound

Stop system speaker

Declaration

Source position: crth.inc line 89

procedure NoSound;

Description

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

Errors

None.

See also

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');
  while (i<15000) do
   begin
     inc(i,500);
     Sound(i);
     Delay(100);
   end;
  WriteLn('Quiet now!');
  NoSound; {Stop noise}
end.

Notes

 No notes exist for this page yet.





lufdoc, Powtils, fpc, freepascal, delphi, kylix, c/c++, mysql, cgi web framework docs, Z505