1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

//Gibt die Volume-ID, also den Namen einer Partition zurück
//http://www.delphi-fundgrube.de/faq03.htm
function VolumeID(DriveChar: Char): string;
var
  OldErrorMode      : Integer;
  NotUsed, VolFlags : DWORD;
  Buf               : array [0..MAX_PATH] of Char;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    GetVolumeInformation(PChar(DriveChar + ':\'), Buf,
                         sizeof(Buf), nil, NotUsed, VolFlags,
                         nil, 0);
    Result := Format('[%s]',[Buf]);
  finally
    SetErrorMode(OldErrorMode);
  end;
end;

//Überprüft ob Laufwerk zur Nummer vorhanden
function DriveExists(DriveByte: Byte): Boolean;
begin
  Result := GetLogicalDrives and (1 shl DriveByte) <> 0;
end;

//Gibt Laufwerktypen zur Nummer. 
function DriveType(DriveByte: Byte): String;
begin
  case GetDriveType(PChar(Chr(DriveByte + Ord('A')) + ':\')) of
    DRIVE_UNKNOWN:      Result := 'unbekannt';
    DRIVE_NO_ROOT_DIR:  Result := 'Laufwerk existiert nicht';
    DRIVE_REMOVABLE:    Result := 'Wechselmedium';
    DRIVE_FIXED:        Result := 'Festplatte';
    DRIVE_REMOTE:       Result := 'Netzwerk';
    DRIVE_CDROM:        Result := 'CD-ROM/DVD';
    DRIVE_RAMDISK:      Result := 'RAM Disk';
  else
    Result := 'anderer Laufwerkstyp';
  end;
end;

//Mix: Listet Laufwerktypen oder VolumeID des Lauwerks
function DriveTypeOrVolumeId(DriveByte: Byte): String;
begin
  case GetDriveType(PChar(Chr(DriveByte + Ord('A')) + ':\')) of
    DRIVE_UNKNOWN:      Result := 'unbekannt';
    DRIVE_NO_ROOT_DIR:  Result := 'Laufwerk existiert nicht';
    DRIVE_REMOVABLE:    Result := 'Wechselmedium';
    DRIVE_FIXED:        Result := VolumeID(Chr(DriveByte + Ord('A'))); //'Festplatte';
    DRIVE_REMOTE:       Result := 'Netzwerk';
    DRIVE_CDROM:        Result := 'CD-ROM/DVD';
    DRIVE_RAMDISK:      Result := 'RAM Disk';
  else
    Result := 'anderer Laufwerkstyp';
  end;
end;