Tipp 0004 CD-Schublade öffnen und schließen
Autor/Einsender:
Datum:
  Detlev Schubert
13.02.2001
Entwicklungsumgebung:   VB 5
Unter Windows werden Multimedia-Geräte über das MCI (Media Control Interface) gesteuert. Das CD-ROM-Laufwerk trägt als MCI-Gerät die Bezeichnung "CDaudio". Um einen MCI-Befehl aufzurufen, greifen wir zur API-Funktion mciExecute. Damit ist es möglich, die Laufwerksschublade zu öffnen und zu schließen.
Das Öffnen funktioniert auch mit Slot-In-Laufwerken, hier wird aber allerdings die CD nur ausgeworfen.
 
Option Explicit

#If Win16 Then     '16 Bit
   Declare Function mciExecute Lib "MMSystem" (ByVal _
           lpstrCommand As String) As Integer
#ElseIf Win32 Then'32 Bit
   Private Declare Function mciExecute Lib "winmm.dll" (ByVal _
            lpstrCommand As String) As Long
#End If

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 0
      Label1.ForeColor = &H8000&
      Label1.Caption = "Schublade wird geöffnet"
      DoEvents
      Screen.MousePointer = 13
      Command1(0).Visible = False
      mciExecute "Set CDaudio door open"  'Schublade öffnen
      Screen.MousePointer = 0
      Label1.ForeColor = &H80000012
      Label1.Caption = "Schublade ist offen"

    Case Else
      Label1.ForeColor = &HC0&
      Label1.Caption = "Schublade wird geschlossen"
      DoEvents
      Screen.MousePointer = 13
      Command1(0).Visible = True
      mciExecute "Set CDaudio door closed" 'Schublade schließen
      Screen.MousePointer = 0
      Label1.ForeColor = &H80000012
      Label1.Caption = "Schublade ist geschlossen"
  End Select
End Sub
 
Weitere Links zum Thema
CD-ROM-Laufwerke öffnen und schließen

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,1 kB) Downloads bisher: [ 3943 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 26. Juni 2011