SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: tiquinho en Lunes 13 de Diciembre de 2004, 16:33

Título: Reproducir Sonidos Del Sistema
Publicado por: tiquinho en Lunes 13 de Diciembre de 2004, 16:33
Buenas a tod@s  :hola:

Me gustaría incluir en mi programa llamadas a los sonidos asociados de Windows, esos como el que se escucha cuando abres un menú, o cuando te salta un error... que puedes modificar en el panel de control.

No sé si tengo que buscarlos en el registro y abrirlos aparte o existe alguna función o API para que suenen.  Alguien sabe del tema??

Gracias por anticipado  :D
Título: Re: Reproducir Sonidos Del Sistema
Publicado por: ebolo en Martes 14 de Diciembre de 2004, 23:35
Debes de usar esta api.
La ruta donde están los sonidos de windows es en C:\windows\Media
-----------------------------------------------------------------------------------------
'Ejecuta un fichero Wav, por el dispositivo de sonido (tarjeta de sonido).

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
             ByVal uFlags As Long) As Long

Const SND_SYNC = &H0 'just after the sound is ended exit function

Const SND_ASYNC = &H1 'just after the beginning of the sound exit function

Const SND_NODEFAULT = &H2 'if the sound cannot be found no error message

Const SND_LOOP = &H8 'repeat the sound until the function is called again

Const SND_NOSTOP = &H10 'if currently a sound is played the function will return without playing the selected sound


Const Flags& = SND_ASYNC Or SND_NODEFAULT

Private Sub Form_Load()
    Dim FicheroSonido As String
    FicheroSonido = "C:\WINDOWS\Media\Apagado de Windows XP.wav"
    sndPlaySound FicheroSonido, Flags
End Sub
-----------------------------------------------------------------------------------------

Saludos y suerte.
Título: Re: Reproducir Sonidos Del Sistema
Publicado por: tiquinho en Miércoles 15 de Diciembre de 2004, 20:34
Gracias por la respuesta ebolo, pero no era eso lo que buscaba.  Lo que pretendía creo que lo puedo hacer con la Api
Código: Text
  1. Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long
  2.  
Y cuyo parámetro puede tomar como valor :
Código: Text
  1. · uType
  2. Specifies the sound type, as identified by an entry in the [sounds] section of the registry. This parameter can be one of the following values:
  3. 0xFFFFFFFF
  4.  Standard beep using the computer speaker
  5. MB_ICONASTERISK
  6.  SystemAsterisk
  7. MB_ICONEXCLAMATION
  8.  SystemExclamation
  9. MB_ICONHAND
  10.  SystemHand
  11. MB_ICONQUESTION
  12.  SystemQuestion
  13. MB_OK
  14.  SystemDefault
  15.  

...y yo que no me había bajado la AllApiGuide :nosweat:
Título: Re: Reproducir Sonidos Del Sistema
Publicado por: tiquinho en Miércoles 15 de Diciembre de 2004, 20:58
Vaya vaya, esto me pasa por las prisas de responder... :brickwall:
Resulta que no tenía ni idea de que valores correspondían a esas constantes... :nosweat:

Bueno, ahí van:
Código: Text
  1. Public Declare Function MessageBeep Lib "user32" _
  2.   (ByVal wType As Long) As Long
  3. Public Const MB_ICONASTERISK = &H40&
  4. Public Const MB_ICONEXCLAMATION = &H30&
  5. Public Const MB_ICONHAND = &H10&
  6. Public Const MB_ICONINFORMATION = MB_ICONASTERISK
  7. Public Const MB_ICONMASK = &HF0&
  8. Public Const MB_ICONQUESTION = &H20&
  9. Public Const MB_ICONSTOP = MB_ICONHAND
  10.  
Por si le vale a alguien más  ^_^