Option Explicit
 
' benötigte API-Deklaration
Private Declare Function mciSendString Lib "winmm.dll" _
  Alias "mciSendStringA" (ByVal lpstrCommand As String, _
  ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Long, _
  ByVal hwndCallback As Long) As Long

Private Sub Form_Load()
  Dim sDrive As String
  Dim sBuffer As String
 
  ' Zu überwachendes CD-Laufwerk festgelegen
  sDrive = "H:"
 
  sBuffer = Space$(255)
  mciSendString "Open " & sDrive & _
    " Type cdaudio Alias cd", sBuffer, Len(sBuffer), 0
 
  ' Timer initialisieren
  Timer1.Interval = 500
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  ' CD-Laufwerk schließen
  mciSendString "set cd door closed", 0&, 0, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
  ' MCI-Gerät schließen
  mciSendString "close cd", 0&, 0, 0
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de