vb6:怎么知道光驱是不是已经弹出了?

显示全部楼层 · 2008-12-23 23:41:07

在vb6中,怎么知道光驱是不是已经弹出了?
谢谢大家

千问 · 2008-12-23 23:41:07

用MCISendString函数可打开/关闭光驱门Public 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 LongDim Ret As LongDim RetStr As String打开 Ret=MCISendString("set CDAudio door open",Re...

千问 · 2008-12-23 23:41:07

Private Sub Command1_Click()Dim CdPath As String, Fn As StringOn Error Resume NextCdPath = "H:"Fn = Dir(CdPath & "\*.*")If Fn = "" ThenMsgBox "光驱内没有光盘或已经弹出！"ElseMsg...