www.Russ-Jesteburg.de > Excel > VBA > API

CD-Laufwerk öffnen und schließen:

' CD-Laufwerk öffnen ...
Private Declare Function mciExecute Lib "winmm.dll" _
   (ByVal lpstrCommand As String) As Long
Sub CD_oeffnen()
   Call mciExecute("Set CDaudio door open")
End Sub

' ... und CD-Laufwerk wieder schließen
Private Declare Function mciExecute Lib "winmm.dll" _
   (ByVal lpstrCommand As String) As Long
Sub CD_schließen()
   Call mciExecute("Set CDaudio door closed")
End Sub

Dieser Tipp ist vom 27.10.2004