Esiste una funzione molto utile che ritorna il tipo di unità in base alla root del drive specificato come parametro. Questa funzione si chiama GetDriveType e analizziamo il suo funzionamento con un esempio molto semplice:

procedure ShowDriveType(Drive: Char);
begin
  case GetDriveType(PChar(Drive + ':\')) of
    0: ShowMessage('The drive type cannot be determined');
    1: ShowMessage('The root directory does not exist');
    DRIVE_REMOVABLE: ShowMessage(Drive Removable / Diskette');
    DRIVE_FIXED: ShowMessage('Drive Fixed');
    DRIVE_CDROM: ShowMessage('CD-ROM Drive');
    DRIVE_RAMDISK: ShowMessage('RAM Drive');
    DRIVE_REMOTE: ShowMessage('Remote Drive');
  end;
end;

Alcuni esempi di invocazione della procedura ShowDriveType sono i seguenti:

ShowDriveType('A');
ShowDriveType('C');
ShowDriveType('D');