Whyle Gonzales wrote:
>
> Hola Listeros....Me intereza saber cual es el comando que me permite ejecutar
> un archivo wave (audio)
>
> Atte,
> Carlos
>
Con las siguientes rutinas, usando "Reproducir Ding", reproduce el
fichero ding.wav. Estas rutinas van en un módulo .bas:
#If Win32 Then
Declare Function sndPlaySound& Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long)
#Else
Declare Function sndPlaySound% Lib "mmsystem.dll" (ByVal lpszSoundName
As String, ByVal uFlags As Integer)
#End If 'WIN32
Public Const SND_SYNC = &H0
Public Const SND_NODEFAULT = &H2
Public Sub Reproducir(Optional Archivo)
If IsMissing(Archivo) Or (Dir(Archivo & ".wav") = Empty) Then Exit Sub
#If Win16 Then
Dim z As Integer
#Else
Dim z As Long
#End If
z = sndPlaySound(Archivo, SND_SYNC Or SND_NODEFAULT)
End Sub
Espero haberte sido de ayuda. Un saludo.