How to replace Windows.Beep with a modern sound signal

Question

How to replace Windows.Beep with a modern sound signal coming from speakers with adjustable volume?

Answer 1

Try this one

uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  sndPlaySound('C:\Windows\Media\sound.wav',
    SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  sndPlaySound(nil, 0); // Stops the sound
end;

Answer 2

It's funny to ask. I just read about the history of the Windows beep. Americans with disabilities have made the Beep API unchanged over the past 20 years.

http://blogs.msdn.com/b/larryosterman/archive/2010/01/04/what-s-up-with-the-beep-driver-in-windows-7.aspx

Windows 7 - , Beep.Sys - , Beep() API 8254, , .

, : Windows 7. : beep api. , .

Answer 3

"" , Windows MessageBox, Windows.MessageBeep(MessageID), MessageID , MessageBox (MB_OK, MB_ERROR ..).

, .

Answer 4

You can replace sound signals with ET BEEP, which has an editor for all kinds of alien sounds.

https://www.encodeteam.com/beep.htm