function GetDriveType

function GetDriveType(ADirName : string) : integer;

Определяет тип диска. Параметр ADirName должен содержать путь к корневому каталогу тома, например "C:\".

Возвращаемые значения:

0 - Ошибка, определить тип диска невозможно

1 - Указанный диск не существует (как вариант - некорректно путь к корневому каталогу тому, например "C:\Windows")

2 - Cменный диск

3 - HDD

4 - Cетевой диск

5 - CD-ROM/DVD-ROM

6 - RAM-диск

Совместимость: AVZ 4.26 и выше

Пример:

begin

 AddToLog(Inttostr(GetDriveType('C:\')));

end.