Get all Drives (HDD, SSD, SSDm2, CD, RAM, Diskette, NetDrives)

procedure GetDrives(const AItems: TStrings);
const
  DriveTypeTexts: array[DRIVE_UNKNOWN..DRIVE_RAMDISK] of String =
   ('Unbekannt', 'Kein Wurzelverzeichnis', 'Diskette', 'Festplatte', 'Netzlaufwerk', 'CDROM', 'RAMDisk');
var
  Drive: Char;
  DriveType: Integer;
  DriveMask: Integer;
  Flag: Integer;
begin
  DriveMask:=GetLogicalDrives;
  flag:=1;
  for Drive := 'A' to 'Z' do
  begin
    if (flag and DriveMask) <> 0 then
    begin
      // NACH DEM %S: KANN AUCH EIN BACKSLASH HINZUGEFÜGT WERDEN
      DriveType := GetDriveType(PChar(Format('%S:',[Drive]))) ; 
      AItems.Add(Format('%s: %s', [Drive, DriveTypeTexts[DriveType]]));
    end;
    flag:=flag shl 1;
  end;
end;

Beispiel :

procedure TForm1.Button1Click(Sender: TObject);
begin
	GetDrives(Listbox1.Items)
end;