Mega Code Archive

 

Categories / Delphi / Multimedia

 

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;