CD Nr. 2 Eject

Der er vel også en eject-knap på CD nr. 2  ;-)

..**LOL** Det er en mulighed.... men det er lidt for primitivt for en VB programmør ikke ???

Nu blev du ikke for \"skuffet\" over, at jeg ikke kom med et ordentligt svar  ;-)

Seriøst - Hvad med:


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 Function EjectCD()
    mciSendString \"set cd door open\", 0, 0, 0
End Function

Private Function CloseCD()
    mciSendString \"set cd door closed\", 0, 0, 0
End Function

Jeg har ikke CD rom i den maskine som jeg sidder ved nu så jeg kan først teste din kode når jeg kommer hjem....
Det håber jeg er i orden !

Lidt skuffet blev jeg da ......men det håber jeg går over i aften......

Vi snakkes ved imorgen !!

Jeg må nok tilstå, at dette ikke løser dit problem.
Der åbnes også kun for CD #1 med dette API.

Jeg melder mig om 1-2 mia km / C  !!

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()
\'    Call OpenDoor(Text1)
    Call OpenDoor(\"F:\")
End Sub

Private Sub Command2_Click()
\'    Call CloseDoor(Text1)
    Call CloseDoor(\"F:\")
End Sub

Private Sub CloseDoor(ByVal DriveLetter As String)
    Dim AliasName As String
    AliasName = \"Laufwerk\" & DriveLetter
    mciSendString \"Open \" & DriveLetter & \": Alias \" & AliasName _
    & \" Type CDAudio\", 0, 0, 0
    mciSendString \"Set \" & AliasName & \" Door Closed\", 0, 0, 0
End Sub

Private Sub OpenDoor(ByVal DriveLetter As String)
    Dim AliasName As String
    AliasName = \"Laufwerk\" & DriveLetter
    mciSendString \"Open \" & DriveLetter & \": Alias \" & AliasName _
    & \" Type CDAudio\", 0, 0, 0
    mciSendString \"Set \" & AliasName & \" Door Open\", 0, 0, 0
End Sub

Det er mig en stor fornøjelse at overrække de 300 point til sjh

Det virker perfekt.........

Det var så lidt TAK TAK. ;)