delphi - how to replace Windows.Beep with modern beep sound -
How To Change Windows Keep up with the modern beep sound that comes from speakers with adjusted volume?
Try this one
uses MMSystem; Process TForm1.Button1Click (Sender: Tubbed); Start sndPlaySound ('C: \ Windows \ Media \ sound.wav', SND_NODEFAULT or SND_ASYNC or SND_LOOP); End; Process TForm1.Button2lick (Sender: Tubbed); Start sndPlaySound (zero, 0); // prevents the end of the sound;
Comments
Post a Comment