Öffnen und schließen des CD-Laufwerkes per Tastendruck

Leserbewertung(1):bewerten...
kommentieren...
Hans Happel

Haben Sie schon mal aus Versehen den RESET- oder AUS-Knopf gedrückt, wenn Sie unterm Schreibtisch den Knopf für das CD-Laufwerk betätigen wollten ? Wenn ja, hier ist die Lösung für dieses Problem.

Erstellen Sie eine Form mit 2 Buttons und fügen Sie folgenden Code ein:

Option Explicit
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute "Set CDaudio door open" ' Laufwerkstür öffnen
End Sub

Private Sub Command2_Click()
mciExecute "Set CDaudio door closed" ' Laufwerkstür schließen
End Sub