Necesito ayuda para cargar varios sonidos en memoria

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
var
  s: string;
begin
s := 'C:\Windows\Media\'+Edit1.text+'.wav';
sndPlaySound(PCHar(s),
  SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
  Showmessage('El numero que salio es::::::'+Edit1.text);
  sndPlaySound(nil, 0); // Detiene el sonido
end;

Saludos
PD: Gracias a enecumene.

[Loreiev]

Empezado por Caral

Hola
Código Delphi [-]procedure TForm1.Button7Click(Sender: TObject); var s: string; begin s := 'C:\Windows\Media\'+Edit1.text+'.wav'; sndPlaySound(PCHar(s), SND_NODEFAULT Or SND_ASYNC Or SND_LOOP); Showmessage('El numero que salio es::::::'+Edit1.text); sndPlaySound(nil, 0); // Detiene el sonido end;

Saludos
PD: Gracias a enecumene.

Probé el código que me diste pero no funcionó, no llega a escucharse el sonido, ademásyo ya tengo dentro del programa un lugar donde debe aparecer escrito el número y no quiero que aparezca ese mensaje, cual puede ser el problema?

[[Caral]]

Hola
Es curioso, as revisado los parlantes??.
Revisaste la solución de Seoane??.
Saludos

[Loreiev]

Hola, disculpen , no había leido la respuesta de simeone . Pareciera que sí, que el problema son los archivos de sonido, los probé en un reproductor y algunos andan y otros no, lo extraño es que yo los saqué de un bingo que ya estaba hecho en internet y cuando hago funcionar el bingo original funcionan todos los audios. Quizás estén encriptados o algo. Voy a probar rehacer los archivos de audio y ver si funciona todo bien.


Muchas gracias por las respuestas y disculpen por haberlos molestado y no darme cuenta sola.

Ah, Felicitaciones por el foro, ya me venía ayudando un montón sin siquiera tener que preguntar.