|
发表于 2010-8-20 12:46:29
|
显示全部楼层
回复 2# kxing
在别的地方看到的,希望有帮助
http://www.autoitscript.com/forum/index.php?showtopic=95936
http://www.autoitscript.com/forum/index.php?showtopic=73782
以下为转贴内容
#include "IMAPI2.au3"
#include <Array.au3>
$ids = _IMAPI2_DrivesGetID()
If $ids[0] = 0 Then Exit
For $i = 1 To $ids[0]
; Get the object
$drive = _IMAPI2_DriveGetObj($ids[$i])
If IsObj($drive) = 0 Then ContinueLoop
$SupportedMedia = _IMAPI2_DriveGetSupportedMedia($drive)
_ArraySearch($SupportedMedia,$IMAPI_MEDIA_TYPE_CDRW)
If @error Then
MsgBox(0,'debug',_IMAPI2_DriveGetLetter($drive) & ' is not a burner')
Else
MsgBox(0,'debug',_IMAPI2_DriveGetLetter($drive) & " is a burner!")
EndIf
Next
Exit |
|