Cita:
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?