怎样识别cd door 是不是关上了

Question

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 Form_Load()
Dim strCom As String, strR As String
strCom = "status cdaudio mode" '取得光驱状态
strR = String(16, Chr(10))
mciSendString strCom, strR, Len(strR), 0
Debug.Print strR
End Sub

Answer 1

楼上的那位说的不行啊
Debug.Print strR这一句我text.text=strR来代替
出来的是open 实际上是关的 而开了之后也是open