USB-Seriennummer auslesen

[Andreas13]

Eine recht zuverlässige Routine, die auch bei USB-Laufwerken finktioniert, ist:

Delphi-Quellcode:

Function LWSerialID(CONST Drive: Char): String;
// Doberenz & Kowalski: Delphi 7 Kochbuch (2003) S. 822
VAR ID, dwx, dwy : DWord;
Begin
  IF GetVolumeInformation(pChar(Drive + ':\'), Nil, 0, @ID, dwx, dwy, Nil, 0) Then
    Result :=  IntToStr(ID)
  Else
    Result :=  'Error'
End; {LWSerialID}
{---------------}

Gruß, Andreas