函数参考

_WinAPI_GetCDType

Retrieves a type of the media which is loaded into a specified CD-ROM device.

#Include <WinAPIEx.au3>
_WinAPI_GetCDType ( $sDrive )

参数

$sDrive The drive letter of the CD tray to retrieve information, in the format D:, E:, etc.

返回值

Success The type of the media, it must be one of the following values.
0x0000 No media
0x0008 CD-ROM
0x0009 CD-R
0x000A CD-RW
0x0010 DVD-ROM
0x0011 DVD-R Sequential Recording
0x0012 DVD-RAM
0x0013 DVD-RW Restricted Overwrite
0x0014 DVD-RW Sequential Recording
0x0015 DVD-R Dual Layer
0x0016 DVD-R Dual Layer Jump Recording
0x0017 DVD-RW Dual Layer
0x0018 DVD-Download Disc Recording
0x001A DVD+RW
0x001B DVD+R
0x0040 BD-ROM
0x0041 BD-R Sequential Recording Mode (SRM)
0x0042 BD-R Random Recording Mode (RRM)
0x0043 BD-RE
0x0050 HD DVD-ROM
0x0051 HD DVD-R
0x0052 HD DVD-RAM
0x0053 HD DVD-RW
0x0058 HD DVD-R Dual Layer
0x005A HD DVD-RW Dual Layer
0xFFFF Unknown
失败: 返回 0 并设置 @error 标志为非 0 值.

注意/说明

None

相关

详情参考

在MSDN中搜索


示例/演示


#Include <WinAPIEx.au3>

Opt('MustDeclareVars', 1)

Global $Text, $Type, $Drive = DriveGetDrive('CDROM')

If IsArray($Drive) Then
    For $i = 1 To $Drive[0]
        $Text = 'Unknown'
        $Type = _WinAPI_GetCDType($Drive[$i])
        If Not @error Then
            Switch $Type
                Case 0x0000
                    $Text = 'No media'
                Case 0x0008
                    $Text = 'CD-ROM'
                Case 0x0009
                    $Text = 'CD-R'
                Case 0x000A
                    $Text = 'CD-RW'
                Case 0x0010
                    $Text = 'DVD-ROM'
                Case 0x0011
                    $Text = 'DVD-R SR'
                Case 0x0012
                    $Text = 'DVD-RAM'
                Case 0x0013
                    $Text = 'DVD-RW RO'
                Case 0x0014
                    $Text = 'DVD-RW SR'
                Case 0x0015
                    $Text = 'DVD-R DL'
                Case 0x0016
                    $Text = 'DVD-R DL JR'
                Case 0x0017
                    $Text = 'DVD-RW DL'
                Case 0x0018
                    $Text = 'DVD-DDR'
                Case 0x001A
                    $Text = 'DVD+RW'
                Case 0x001B
                    $Text = 'DVD+R'
                Case 0x0040
                    $Text = 'BD-ROM'
                Case 0x0041
                    $Text = 'BD-R SRM'
                Case 0x0042
                    $Text = 'BD-R RRM'
                Case 0x0043
                    $Text = 'BD-RE'
                Case 0x0050
                    $Text = 'HD DVD-ROM'
                Case 0x0051
                    $Text = 'HD DVD-R'
                Case 0x0052
                    $Text = 'HD DVD-RAM'
                Case 0x0053
                    $Text = 'HD DVD-RW'
                Case 0x0058
                    $Text = 'HD DVD-R DL'
                Case 0x005A
                    $Text = 'HD DVD-RW DL'
            EndSwitch
        EndIf
        ConsoleWrite(StringUpper($Drive[$i]) & ' => ' & $Text & @CR)
    Next
EndIf