如何检测光盘有没有光盘，有就提示弹出，i没有就无提示？

fyhwaijxnt78 · 发表于 2009-9-4 00:10:19

本帖最后由 fyhwaijxnt78 于 2009-9-5 08:31 编辑

如何检测光盘有没有光盘，有就自动弹出，没有就无提示？

afan · 发表于 2009-9-4 00:22:32

本帖最后由 afan 于 2009-9-4 00:26 编辑

$a = DriveGetDrive("CDROM")
For $i = 1 To $a[0]
        $b = DriveStatus($a[$i])
        If $b = 'READY' Then
                ;MsgBox(0, 0, '驱动器 ' & $a[$i] & " 里有光盘")
                CDTray($a[$i], 'open')
        EndIf
Next

fyhwaijxnt78 · 发表于 2009-9-5 08:30:53

$a = DriveGetDrive("CDROM")
For $i = 1 To $a[0]
$b = DriveStatus($a[$i])
If $b = 'READY' Then
;MsgBox(0, 0, '驱动器 ' & $a[$i] & " 里有光盘")
CDTray($a[$i], 'open')
EndIf
Next
afan 发表于 2009-9-4 00:22

谢谢，正是我需要的！

afan · 发表于 2009-9-9 19:50:30

$a = DriveGetDrive("CDROM")
For $i = 1 To $a[0]
        $b = DriveStatus($a[$i])
        If $b = 'READY' Then
                ;MsgBox(0, 0, '驱动器 ' & $a[$i] & " 里有光盘")
                If CDTray($a[$i], 'open') Then MsgBox(64, '注意', '光盘已出仓，请取出光盘！')
        EndIf
Next

这样就行了。早改好了，忘了发帖~

jszsj · 发表于 2009-12-19 15:34:53

学习啦，呵呵，感谢

		自动登录	找回密码
密码			加入

如何检测光盘有没有光盘，有就提示弹出，i没有就无提示？

评分

评分