Xin một đoạn code để play file media

[gamer1]

Anh em nào có thể send cho mình một đoạn code (là hàm lấy tham số là tên file thì càng tốt) để chơi các file media như *.mid,*.wav,*.mp3 được không ?
Nếu có thì cám ơn anh em trước nhé :)

[songok]

sử dụng hàm Windows API của Windows . Sau đây là đoạn code viết bằng VB thông qua 1 module . Trong chương trình của mình , bạn chỉ cần đánh vào dòng PlaySound <Tên file .wav> thì file âm thanh đó sẽ được phát ra trong chương trình của mình :

'Module MdlSound.bas
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String,ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub StopSound()
Dim i As Long, RS As String, cb As Long
RS = Space$(128)
i = mciSendString("stop sound", RS, 128, cb)
i = mciSendString("close sound", RS, 128, cb)
End Sub

Public Sub PlaySound(Path)
StopSound
Dim i As Long, RS As String, cb As Long
RS = Space$(128)

i = mciSendString("open waveaudio!" & Path & " alias sound", RS, 128, cb)
i = mciSendString("play sound", RS, 128, cb)
End Sub