![]() |
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
|
|
|
|
|
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: [ 4035 ]
|
|
|