Gruppe
API
Problem
Wie kann ich über VBA das CD-Laufwerk öffnen und schließen?
StandardModule: basMain
Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long
Sub CD_oeffnen()
Call mciExecute("Set CDaudio door open")
End Sub
Sub CD_schliessen()
Call mciExecute("Set CDaudio door closed")
End Sub