自我感覺良好

32位元
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


64位元…只差PtrSafe…
Option Explicit
Public Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String,
ByVal uReturnLength As LongLong, ByVal hwndCallback As LongLong) As LongLong