per
API
Delphi-Quellcode:
If GetVolumeInformation(PChar(LogicalDrives[Di].VolumeName + '\'),
PWideChar(S), 65, @W, W2, W3, PChar(S2), 65) Then Begin
LogicalDrives[Di].SerialNumber := IntToHex(W shr 16, 4) + '-' + IntToHex(W and $FFFF, 4);
per
WMI
WMI > ROOT\CIMV2.Win32_CDROMDrive > VolumeSerialNumber
WMI > ROOT\CIMV2.Win32_LogicalDisk > VolumeSerialNumber
es gehen aber nicht immer beide Versionen
Quelle:
http://www.delphipraxis.net/internal...ght=datarescue
in dem verlinkten Programm siehst du eventuell, daß nicht immer alle Seriennummern existieren
(vorallem bei den Physical-Drives)