Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 848

•  TDictionary Custom Sort  5 949

•  Fast Watermark Sources  5 743

•  3D Designer  8 551

•  Sik Screen Capture  6 085

•  Patch Maker  6 515

•  Айболит (remote control)  6 504

•  ListBox Drag & Drop  5 368

•  Доска для игры Реверси  95 176

•  Графические эффекты  6 721

•  Рисование по маске  5 877

•  Перетаскивание изображений  4 897

•  Canvas Drawing  5 270

•  Рисование Луны  4 998

•  Поворот изображения  4 541

•  Рисование стержней  3 217

•  Paint on Shape  2 459

•  Генератор кроссвордов  3 340

•  Головоломка Paletto  2 652

•  Теорема Монжа об окружностях  3 445

•  Пазл Numbrix  2 275

•  Заборы и коммивояжеры  2 936

•  Игра HIP  1 905

•  Игра Go (Го)  1 818

•  Симулятор лифта  2 158

•  Программа укладки плитки  1 884

•  Генератор лабиринта  2 323

•  Проверка числового ввода  2 012

•  HEX View  2 330

•  Физический маятник  1 984

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как проверить готовность диска А 2



После игры в покер виндозе выдает сообщение:
- Вы проиграли 273 доллара. Вставьте их, пожалуйста, в дисковод А: и нажмите ANY KEY (если найдете).
Что в этом случае делают...
Ламер: С остервенелым видом начинает засовывать 273 доллара в флоповод А: и искать ANY KEY.
Юзер: С жутко довольным видом давит ресет и бежит рассказывать друзьям о том, как он "взломал" покер.
Хакер: За соседним компутером быстренько пишет прогу, эмулирующую засовывание 273 баксов в дисковод А:. Потом, в течение 3-4 недель пишет фиксы и апдэйты для эмуляции запихивания 274, 293 и 765 баксов в дисководы А:, В.
Новый русский: Со всей дури бьет кулаком по флоповоду А: и начинает усердно искать в флоповоде В: сдачу...


type
  TDriveState(DS_NO_DISK, DS_UNFORMATTED_DISK, DS_EMPTY_DISK,
    DS_DISK_WITH_FILES);

function DriveState(driveletter: Char): TDriveState;
var
  mask: string[6];
  sRec: TSearchRec;
  oldMode: Cardinal;
  retcode: Integer;
begin
  oldMode: = SetErrorMode(SEM_FAILCRITICALERRORS);
  mask := '?:\*.*';
  mask[1] := driveletter;
{$I-} { не возбуждаем исключение при неудаче }
  retcode := FindFirst(mask, faAnyfile, SRec);
  FindClose(SRec);
{$I+}
  case retcode of
    0: Result := DS_DISK_WITH_FILES; { обнаружен по крайней мере один файл }
    -18: Result := DS_EMPTY_DISK; { никаких файлов не обнаружено, но ok }
    -21: Result := DS_NO_DISK; { DOS ERROR_NOT_READY }
  else
    Result := DS_UNFORMATTED_DISK; { в моей системе значение равно -1785!}
  end;
  SetErrorMode(oldMode);
end; { DriveState }

Я тестировал код под Win NT 3.5, так что проверьте его на ошибки в ситуациях, когда дискета отсутствует или неотформатирована под Win 3.1 и WfW 3.11, если, конечно, это необходимо.

Ревизия для Win95:


case RetCode of
  0: Result := DS_DISK_WITH_FILES;
  -18: Result := DS_EMPTY_DISK;
  else
    Result := DS_NO_DISK;
end;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте