Source Code



enable and disable system beep

  • anonymous
  • Jan 13' 14
  • Delphi
  • 194
  • 180
  • United States
procedure TForm1.Button1Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE);
end;

// Enable System beep:

procedure TForm1.Button2Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_SENDWININICHANGE);
end;
  • Tags : enable, disable, system beep
comments powered by Disqus

Related Code

Disable Close button on form caption

Disable Keyboard and Mouse



Category