[VB6] Laufwerk öffnen/schließen

[Basic767]

hey ich programmiere so ein bissen mit vb6 und da wollte ich mal wissen wie man ein tool programmiert das die laufwerke öffnet

(macht man das mit der shell option?) :?:

[nemo]

Benutz die mciExecute API.

Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

' Auf
Private Sub Command1_Click()
	mciExecute "Set CDaudio door open"
End Sub

' Zu
private Sub Command2_Click()
	mciExecute "Set CDaudio door closed"
End Sub

[Basic767]

VIELEN DANK 8)