Mega Code Archive

 

Categories / Delphi / System

 

Enable and disable system beep

Title: 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;