Только готовые дисководы

- У моей бабупи до сих пор лежит Евангелие 1804 года издания.
- Ух ты! Небось, еще на 5-дюймовых дискетах?

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  OldErrorMode: Word;
  OldDirectory: string;
begin
  OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
  GetDir(0, OldDirectory);
  i := 0;
  while i <= DriveComboBox1.Items.Count - 1 do
  begin
    {$I-}
    ChDir(DriveComboBox1.Items[i][1] + ':\');
    {$I+}
    if IoResult 0 then
      DriveComboBox1.Items.Delete(i)
    else
      inc(i);
  end;
  ChDir(OldDirectory);
  SetErrorMode(OldErrorMode);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 619 • TDictionary Custom Sort 6 622 • Fast Watermark Sources 6 401 • 3D Designer 9 345 • Sik Screen Capture 6 734 • Patch Maker 7 118 • Айболит (remote control) 7 123 • ListBox Drag & Drop 5 984 • Доска для игры Реверси 97 558 • Графические эффекты 7 319 • Рисование по маске 6 607 • Перетаскивание изображений 5 479 • Canvas Drawing 5 855 • Рисование Луны 5 572 • Поворот изображения 5 086 • Рисование стержней 3 654 • Paint on Shape 2 888 • Генератор кроссвордов 3 786 • Головоломка Paletto 3 039 • Теорема Монжа об окружностях 3 851 • Пазл Numbrix 2 534 • Заборы и коммивояжеры 3 246 • Игра HIP 2 211 • Игра Go (Го) 2 144 • Симулятор лифта 2 524 • Программа укладки плитки 2 166 • Генератор лабиринта 2 661 • Проверка числового ввода 2 318 • HEX View 2 649 • Физический маятник 2 280