CD-Rom eject

har du prøvet følgende kan jeg se souce koden

Function CDEject() As Integer
      ' This function is not supported by all CD devices.
      CDEject = alias_mciSendString("Set CDAudio Door Open", "", 0, 0)
  End Function

'Declare Følgende
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

Sub ÅbenCD()
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub


Sub LukCD()
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub

Den burde Virke
Hilsen
M.I.X

Hej mix.
Det virkede :)
Inden jeg accepterer svaret, ved du så også hvordan jeg aflæser lågens tilstand? (Open/Closed)
/TheFreak

Hmm Du kan prøve med at Se hvad værdien er for "uReturnLength" er når CDafspilleren er åben og se hvad den er når den er lukket ..

ellers ved jeg det ik
Hilsen
M.I.X

Hmm, jeg prøver, det er heller ik vildt vigtigt :)
Tak for hjælpen :)

Ps, kan man låse et Cd-Romdrev