Delphi. Трюки и эффекты

Определение типа носителя диска

function GetDriveTypeName(root: String): String;

begin

case GetDriveType(PAnsiChar(root)) of

DRIVE_UNKNOWN: GetDriveTypeName := \'Не определен\

DRIVE_REMOVABLE: GetDriveTypeName := \'Сменный\

DRIVE_FIXED: GetDriveTypeName := \'Фиксированный\

DRIVE_REMOTE: GetDriveTypeName := \'Удаленный (сетевой)\

DRIVE_CDROM: GetDriveTypeName := \'Компакт-диск\

DRIVE_RAMDISK: GetDriveTypeName := \'RAM-диск\

else

GetDriveTypeName := \'\' //Возвращается в случае ошибки

end;

end;