Visual Basic FAQ

Открытие и закрытие нескольких CD-ROM ’ов

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 OpenCloseDoor(strDriveLetter As String, Optional blnDoOpen As Boolean = True)
Dim AliasName$, strOpenClose$
strOpenClose = IIf(blnDoOpen, "Open", "Closed")
AliasName = "Laufwerk" & strDriveLetter
mciSendString "Open " & strDriveLetter & ": Alias " & AliasName & " Type CDAudio", 0, 0, 0
mciSendString "Set " & AliasName & " Door " & strOpenClose, 0, 0, 0
End Sub

Private Sub Command1_Click()
OpenCloseDoor "d:\" 'Открываем
End Sub

Private Sub Command2_Click()
OpenCloseDoor "d:\", False 'Закрываем
End Sub

Запись опубликована on 10.09.2008 at 11:11 и размещена в рубрике: Диск. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.