title image


Smiley Re: Midis via API abspielen. Hat jemand nen source? o.T.
So geht'sGrußKerstinPrivate Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongPrivate Sub Command1_Click() Dim ret As Integer 'Laden der Midi-Datei ret = mciSendString("open C:\Windows\Musik.mid type sequencer alias musik", 0&, 0, 0) 'Abspielen der Midi-Datei ret = mciSendString("play musik", 0&, 0, 0) 'Schließen der Midi-Datei 'ret = mciSendString("close musik", 0&, 0, 0)End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: