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