UDF > WinAPIEx > Files & Devices > DevicesIoCtl >

_WinAPI_GetCDType

Obtient le type de support qui est chargé dans un lecteur de CD-ROM spécifié

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

Paramètre

$sDrive La lettre de lecteur du plateau de CD pour lequel vous voulez des informations, dans le format D:, E:, etc

Valeur de retour

Succès: Retourne le type de support:
0x0000 - Aucun média
0x0008 - CD-ROM
0x0009 - CD-R
0x000A - CD-RW
0x0010 - DVD-ROM
0x0011 - DVD-R Enregistrement séquentiel
0x0012 - DVD-RAM
0x0013 - DVD-RW Écrasement restreint
0x0014 - DVD-RW Enregistrement séquentiel
0x0015 - DVD-R Double couche
0x0016 - DVD-R Dual Layer Jump Recording
0x0017 - DVD-RW Double couche
0x0018 - DVD- Download Disk Recording
0x001A - DVD+RW
0x001B - DVD+R
0x0040 - BD-ROM
0x0041 - BD-R Mode d'enregistrement séquentiel (SRM)
0x0042 - BD-R Mode d'enregistrement aléatoire (RRM)
0x0043 - BD-RE
0x0050 - HD DVD-ROM
0x0051 - HD DVD-R
0x0052 - HD DVD-RAM
0x0053 - HD DVD-RW
0x0058 - HD DVD-R Double couche
0x005A - HD DVD-RW Double couche
0xFFFF - Inconnu
Échec: Retourne 0 et définit @error <> 0.

Voir aussi

Consultez IOCTL_SCSI_PASS_THROUGH dans la librairie MSDN.

Exemple

#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