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

Объявление в Интернете: Куплю винчестер. Жёсткие диски не предлагать!

Нужно воспользоваться API функцией GetDriveType():

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 667 • TDictionary Custom Sort 6 673 • Fast Watermark Sources 6 455 • 3D Designer 9 388 • Sik Screen Capture 6 790 • Patch Maker 7 199 • Айболит (remote control) 7 186 • ListBox Drag & Drop 6 034 • Доска для игры Реверси 97 657 • Графические эффекты 7 358 • Рисование по маске 6 660 • Перетаскивание изображений 5 516 • Canvas Drawing 5 902 • Рисование Луны 5 645 • Поворот изображения 5 131 • Рисование стержней 3 722 • Paint on Shape 2 928 • Генератор кроссвордов 3 839 • Головоломка Paletto 3 072 • Теорема Монжа об окружностях 3 885 • Пазл Numbrix 2 554 • Заборы и коммивояжеры 3 301 • Игра HIP 2 263 • Игра Go (Го) 2 183 • Симулятор лифта 2 578 • Программа укладки плитки 2 190 • Генератор лабиринта 2 693 • Проверка числового ввода 2 342 • HEX View 2 675 • Физический маятник 2 329