1 respuesta en este tema

[monchito_elroro]

Buenas a todos amigos quisiera hacerles una consulta:
Estoy intentando reproducir sonidos desde un recurso
pero tengo unos inconvenientes....

resulta que puedo reproducirlos de la forma normal
como es:

delphi

Uses
  ...., mmsystem;
 
procedure TForm1.Button1MouseEnter(Sender: TObject);
begin
  sndplaysound('High1.wav', snd_nodefault);
end;

Hasta aquí todo OK, pero me gustaría meter dos sonidos
en mi EXE como recurso, para no estar llevando tantas
cosas.........

yo ya los he metido en un recurso llamado "sonidito.lrs"
y lo he ubicado bien pero no se que hago mal que no sale
la música, esto es lo que pongo:

delphi

procedure TForm1.Button1MouseEnter(Sender: TObject);
begin
  	Playsound(Pchar('High1'),hInstance, SND_RESOURCE or snd_async);
end;

o este otro:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
	PlaySound('High1', hInstance, SND_RESOURCE or SND_SYNC);
end;

Pero no pasa nada haber si me pueden hechar una mano.
gracias.....

[monchito_elroro]

Buenas amiguitos de momento este inconveniente
lo he resuelto con el siguiente código:

delphi

Uses
  . . . , mmsystem, lresources; 
 
 procedure TForm1.Button2Click(Sender: TObject);
 var
   s:string;
 begin
   s:=LazarusResources.find('high1').Value;    // 'high1' es el nombre del audio en el recurso
   sndplaysound(pchar(s),SND_NOWAIT or SND_MEMORY);
 End;
 .
 .
 .
 Initialization
 {$I sonidito.lrs}
 end.

Pero a la vez quisiera hacerles una consultita respecto a
SND_MEMORY, pués si tengo entendido este comando
manda el audio a la memoria y por lo cual mi pregunta es
si al final tengo que liberarlo con otro comando.....

Gracias y corrijanme si estoy mal....