Mega Code Archive

 

Categories / Delphi / System

 

How to enable and disable system beep

Title: How to enable and disable system beep // Disable System beep: 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;