Как узнать является диск CD-диском, сетевым диском, виртуальным диском или съемным диском в Delphi?

procedure TForm1.Button1Click(Sender: TObject); 
begin
  case GetDriveType('C:\') of
    0              :  ShowMessage('The drive type cannot be determined'); 
    1              : ShowMessage('The root directory does not exist'); 
    DRIVE_REMOVABLE: ShowMessage('The disk can be removed'); 
    DRIVE_FIXED    : ShowMessage('The disk cannot be removed'); 
    DRIVE_REMOTE   : ShowMessage('The drive is remote (network) drive'); 
    DRIVE_CDROM    : ShowMessage('The drive is a CD-ROM drive'); 
    DRIVE_RAMDISK  : ShowMessage('The drive is a RAM disk'); 
  end; 
end; 
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий