باز و بسته کردن سی CD-Rom (کنترل CD-Rom) در ویژال بیسیک6

کد باز و بسته کردن درب سی دی رام

در ادامه مطالب...

این رو در قسمت General تعریف کنید :

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

برای باز کردن درب CD-Rom :

Private Sub Command1_Click()

a = mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)

End Sub

 : CD-Rom برای بستن درب

Private Sub Command2_Click()

b = mciSendString("Set CDAudio Door closed Wait", 0&, 0&, 0&)

End Sub