Обновлено: 01 декабря, 2018

Как узнать является диск 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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439