killermaster
2004-01-11, 17:05:24
wie mache ich das ?
rivate Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Sub OpenTheDoor()
'Laufwerkstür öffnen
mciExecute "Set CDaudio door open"
End Sub
Sub CloseTheDoor()
'Laufwerkstür schließen
mciExecute "Set CDaudio door closed"
End Sub
geht nicht
rivate Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Sub OpenTheDoor()
'Laufwerkstür öffnen
mciExecute "Set CDaudio door open"
End Sub
Sub CloseTheDoor()
'Laufwerkstür schließen
mciExecute "Set CDaudio door closed"
End Sub
geht nicht