Prüfen ob CD-(Standard)Laufwerk offen oder zu ist
12.01.2007 20:49:36
Heiko
weiß jemand wie man die Prüfung einfach realisieren kann?
Damit (der Code unten) geht es ja mit 2 Button Auf und Zu. Ich würde das allerdings gerne über einen Button (Eject-Button) lösen, den ich dann auch noch (Toggle-Button o.ä.) farbig machen will (z.B. Rot=Auf und Grün=Zu).
' 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
Viele Grüße, Heiko