VB: CD-Laufwerk öffnen und schließen

Um dem Benutzer zusätzlichen Komfort zu bieten, können Sie z.B. bei Aufforderung die CD-ROM einzulegen schon im Vorraus das Laufwerk öffnen und später nach einem Klick auf "Ok" auch wieder schließen. Auch wenn Sie einen CD-Player programmieren, kann man auf diese Funktion nicht verzichten. Hier wird erklärt, wie dies mit VB realisierbar ist.

Bewertung dieses Tipps:

(bewertet von insgesamt 44 Besuchern)

Um diese API-Funktion in Ihren eigenen Projekten verwenden zu können, muss Sie zuerst im Kopf der Datei deklariert werden. Zusätzlich werden noch zwei Funktionen benötigt, die den API-Aufruf zusammenfassen und vereinfachen. Ich empfehle Ihnen, den folgenden Code in einem Modul zu plazieren, da die Funktionen dann später im gesamten Projekt zur Verfügung stehen.

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

'CD-Laufwerk öffnen
Sub OpenCD()
mciExecute "Set CDaudio door open"
End Sub

'CD-Laufwerk schließen
Sub CloseCD()
mciExecute "Set CDaudio door closed"
End Sub

Die Aufrufe der Funktion sind eigentlich selbsterklärend. Es muss kein Paramter übergeben werden und es wird auch nichts zurückgegeben. Um das CD-ROM-Laufwerk zu öffnen, rufen Sie die Funktion "OpenCD" auf, das Gegenteil bewirken Sie mit "CloseCD".

Wenn der PC des Benutzers mehr als ein CD-ROM-Laufwerk besitzt, wird das Laufwerk mit dem niedriegeren Buchstaben geöffnet, also z.B. "D:" vor "E:".

Quellen: SHADOWare.de
Letzte Änderung: 27.09.00