Einzelnen Beitrag anzeigen
Alt 05.03.2004, 13:49   #5 (permalink)
Stinger`
Taschenrechner
 

Registriert seit: 21.02.2004
Beiträge: 62

Stinger` befindet sich auf einem aufstrebenden Ast

Standard

Code:
Public Declare Function mciSendString Lib "winmm.dll" _ 
  Alias "mciSendStringA" (ByVal lpszCommand As String, _ 
  ByVal lpszReturnString As String, _ 
  ByVal cchReturnLength As Long, _ 
  ByVal hwndCallback As Long) As Long
Öffnen:
Code:
mciSendString "set cdaudio door open", 0, 0, 0
Schließen:
Code:
mciSendString "set cdaudio door closed", 0, 0, 0

Meine VB Zeiten liegen etwas länger zurück, also ich weiß nicht obs geht :>.
Stinger` ist offline   Mit Zitat antworten