Function Reference


_WinAPI_GetCDType

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

#include <WinAPIFiles.au3>
_WinAPI_GetCDType ( $sDrive )

Parameters

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

Return Value

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
Failure: 0 and sets the @error flag to non-zero.

See Also

Search IOCTL_SCSI_PASS_THROUGH in MSDN Library.

Example

#include <WinAPIFiles.au3>

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