[NIch]

Копай в эту сторону...

//Информация о диске - GetVolumeInformation
//Пример
GetVolumeInformation('f:\', VolumeName, MAX_PATH, @VolumeSerialNo,
MaxComponentLength, FileSystemFlags, FileSystemName, MAX_PATH);
...
//Тип диска - GetDriveType
//Пример
case GetDriveType('f:\') of
0: Type_Of_Disk := 'NoDet';
1: Type_Of_Disk := 'NoExist';
DRIVE_REMOVABLE: Type_Of_Disk := 'Rem';
DRIVE_FIXED: Type_Of_Disk := 'Fix';
DRIVE_REMOTE: Type_Of_Disk := 'Net';
DRIVE_CDROM: Type_Of_Disk := 'CD';
DRIVE_RAMDISK: Type_Of_Disk := 'RAM';
end;