![]() |
|
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: [ 4029 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 