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 Function PlayMidiFile(ByVal MidiFile As String) As Boolean
        Dim lRet As Long
        On Error Resume Next
        If Dir(MidiFile) = "" Then Exit Function
        lRet = mciSendString("stop midi", "", 0, 0)
        lRet = mciSendString("close midi", "", 0, 0)
        lRet = mciSendString("open sequencer!" & MidiFile & " alias midi", "", _
          0, 0)
        lRet = mciSendString("play midi", "", 0, 0)
        PlayMidiFile = (lRet = 0)
    End Function
 
    Public Function StopMidiFile() As Boolean
        Dim lRet As Long
        On Error Resume Next
 
        lRet = mciSendString("stop midi", "", 0, 0)
        StopMidiFile = (lRet = 0)
        lRet = mciSendString("close midi", "", 0, 0)
    End Function
 
Private Sub playButton_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles playButton.Click
     PlayMidiFile("lied.mid")
End Sub
 
Private Sub stopButton_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles stopButton.Click
     StopMidiFile()
End Sub

Zitat:

Ein Aufruf an die PInvoke-Funktion "test!testprogramm.FrmMain::mciSendString" hat das Gleichgewicht des Stapels gestört. Wahrscheinlich stimmt die verwaltete PInvoke-Signatur nicht mit der nicht verwalteten Zielsignatur überein. Überprüfen Sie, ob die Aufrufkonvention und die Parameter der PInvoke-Signatur mit der nicht verwalteten Zielsignatur übereinstimmen.