He encontrado este código por Internet.
Ya te adelanto que no es mío y no lo he probado ya que en este equipo no dispongo del dispositivo adecuado.
Pruébalo y ya dirás...
Código Delphi
[-]
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
TMS: TMemoryStream;
wavOutDevice:Boolean;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
if wavOutDevice then begin
PlaySound(TMS.Memory, 0, SND_ASYNC or SND_MEMORY);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if WaveOutGetNumDevs = 0 then begin
showmessage('No .wav output device available in your PC');
wavOutDevice := False; end
else begin
TMS := TMemoryStream.Create;
TMS.LoadFromFile('.\ding.wav'); wavOutDevice := True; end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
PlaySound(NIL, 0, SND_ASYNC or SND_NODEFAULT);
TMS.Free; end;
end.