Name des Laufwerks ausgeben

[Mazel]

Hallo,

in vielen Programmen sieht man immer den Namen des Laufwerks: TOSHIBA CD-ROM CDRW SD-XX. Wie kann ich das nun auch ausgeben?

Gruß
Mazel

[Luckie]

Meinst du den Namen oder den Hersteller? Den Hersteller kann man entweder per WMI auslesen oder in der Registry. Den Namen eines Laufwerkes unter Windows bekommt man hingegen mit GetVolumeInformation.

[Mazel]

Hallo,

ja den Hertseller. Über GetLogicalDrives ermittle ich alle Laufwerke, mit GetVolumeInformation hole ich mir Informationen zum Namen, Serial und Dateisystem.
Die Art des Laufwerks ermittle ich über GetDriveTypes

Delphi-Quellcode:

Case GetDriveType(PChar(Drive + '\')) of
      DRIVE_UNKNOWN:
       Item.SubItems.Add('unbekannt');
      DRIVE_NO_ROOT_DIR:
       Item.SubItems.Add('existiert nicht');
      DRIVE_REMOVABLE:
       Item.SubItems.Add('Wechselmedium');
      DRIVE_FIXED:
       Item.SubItems.Add('Festplatte');
      DRIVE_REMOTE:
       Item.SubItems.Add('Netzlaufwerk');
      DRIVE_CDROM:
       Item.SubItems.Add('CD/DVD-ROM');
      DRIVE_RAMDISK:
       Item.SubItems.Add('RAM Disk');
      Else Item.SubItems.Add('anderer Laufwerkstyp');

Das ist mir aber für CD/DVD zu ungenau. Daher möchte ich noch genau den Namen/Hersteller ermitteln.

Im Anhang habe ich zwei Bilder, einmal was ich ermitteln möchte und einmal welche Infos ich schon habe.

Gruß
Mazel