Optenir numéro de série CD ou DVD

[meganet]

Salut, esque quelqu'un sais comment faire (sous windows) pour optenir le numéro de série d'un CD ou d'un DVD (celui qui est affiché par nero)? GetVolumeInformation_() ne fonctionne pas.

[Gillou]

Salut!

Bizarre chez moi cette commande marche :

Code : Tout sélectionner

Procedure NoSerieDisque(Drive.s)
    
    VolumeNameBuffer.s = Space(256)
    VolumeNameSize = 256
    VolumeSerialNumber = 0
    MaximumComponentLength = 256
    FileSystemFlags = 0
    FileSystemNameBuffer.s = Space(256)
    FileSystemNameSize = 256
    
    Lib = OpenLibrary(#PB_Any, "kernel32.dll")
    Res = CallFunction(Lib, "GetVolumeInformationA", @Drive.s, @VolumeNameBuffer.s, VolumeNameSize, @VolumeSerialNumber, @MaxComponentLength, @FileSystemFlags, @FileSystemNameBuffer.s, FileSystemNameSize)
    CloseLibrary(Lib)
    MessageRequester("", VolumeNameBuffer+" : "+FileSystemNameBuffer+" : "+Str(VolumeSerialNumber))
EndProcedure

NoSerieDisque("d:\")

[Dr. Dri]

ca ne fonctionne qu'avec un CD/DVD non vierge dans le lecteur

Dri

[meganet]

Salut, merci pour ton code, mais ça ne marche qu'avec un cd déjà gravé. Moi ce que je cherche, c'est optenir le numéro de séri d'un cd ou dvd vierge. Néro le fait mais impossible de trouver comment il le fait. Merci d'avance à tous!

[Gillou]

Il me semble que tous les logiciels de gravure générent le numéro de série et l'inscrivent sur le cd au même titre que le label et les données