hvordan kan jeg få ut cd rom?

[Nerdiboy]

hvordan kan jeg få ut cd rom? enten med dos eller VisualBasic?

[Knuty]

Mekk en kode sånn som den under.. så skal det funke. Denne har jeg bare funnet.. vet ikke om den fungerer..

 

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 Command1_Click()

Dim Dummy As String

Dummy = vbmciSendString("set cdaudio door open", 0)

End Sub

 

Private Sub Command2_Click()

Dim Dummy As String

Dummy = vbmciSendString("set cdaudio door closed ", 0)

End Sub

 

Function vbmciSendString(ByVal Command As String, ByVal hWnd As Long) As String

Dim Buffer As String

Dim dwRet As Long

Buffer = Space$(100) ' Create a buffer

dwRet = mciSendString(Command, ByVal Buffer, Len(Buffer), hWnd)

vbmciSendString = Buffer

End Function