Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: USB-Seriennummer auslesen

   
    by Andreas13, 20. Mär 2021
  Eine recht zuverlässige Routine, die auch bei USB-Laufwerken finktioniert, ist:
  
  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'