JOUER UN FICHIER WAV SUR MULTI-PLATEFORMES DE PDA

Module Player
    Public Declare Function CreateProcess Lib "coredll" Alias "CreateProcessW" _
       (ByVal lpApplication As String, _
       ByVal lpCommandLine As String, _
       ByVal lpProcessAttributes As Long, _
       ByVal lpThreadAttribute As Long, _
       ByVal bInheritHandles As Long, _
       ByVal dwCreationFlags As Long, _
       ByVal lpEnvironment As Long, _
       ByVal lpCurrentDirectory As Long, _
       ByVal lpStartupInfo As Long, _
       ByVal lpProcessInformation As Long) As Boolean
End Module

'Attention les deux lignes qui suivent sont à mettre dans le programme.L'adresse du fichier son est celle de l'exemple , vous devez la remplacer par l'adresse complète de votre fichier wav
Dim wRetVal As Boolean
wRetVal=CreateProcess(\Windows\sndPlay.exe,"\Carte d'extension\Bureau\S300.wav",0,0,0,0,0,0,0,0)
'Vérifier qu'il y a 8 zéros
'Si vous appelez cette ligne vous devriez entendre le fichier wav et ceci quelle que soit la plateforme mobile que vous utilisez.