Category: Multimedia
Title: Enable and disable system beep
Date added: 15.03.2006
Hits: 2168


procedure TForm1.Button1Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_SENDWININICHANGE);
end;

1. How to record wave files (*.wav)? (3316 Hits)

2. How to use the Microsoft Speech API? (2989 Hits)

3. How to open and close a certain CD-drive? (2116 Hits)

4. How to change the sound cards volume? (2273 Hits)

5. How to check if a soundcard is installed? (1726 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.