Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

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

Delphi , Файловая система , Диски

Как проверить готовность диска А 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;

Прекрасный фрагмент кода!

Для проверки готовности диска A:

  1. Lamer: Вставьте $273 в диск A и нажмите любую клавишу.
  2. User: Нажмите кнопку сброса и хвастайтесь перед друзьями о "хакинге" покера.
  3. Hacker: Напишите программу, имитирующую вставку $273 в диск A, а затем обновите ее для имитации вставки $274, $293 и $765 в диски A и B.

В отношении кода самой функции:

Функция DriveState принимает символ (driveletter) в качестве входного параметра и возвращает значение перечисления, указывающее состояние диска. Функция использует функции FindFirst и FindClose для поиска файлов на указанном диске. Вот разбивка кода:

  1. Установите режим ошибок в режим критических ошибок.
  2. Создайте строку маски (mask) с буквой диска (driveletter) и символом wildcard (*.*). Это будет соответствовать любому файлу на диске.
  3. Используйте FindFirst для поиска файлов на диске. Если успешно, верните код результата (retcode).
  4. В зависимости от кода результата:
    • 0: Диск имеет хотя бы один файл (DS_ DISK_ WITH_FILES).
    • -18: Диск пуст, но OK (DS_EMPTY_ДИСК).
    • -21: Ошибка DOS "NOT_READY" (DS_NO_DISK).
  5. Иначе, верните DS_UNFORMATTED_ДИСК.

Для Windows 3.1 и WfW 3.11 код должен работать как ожидается.

Для Windows 95 needed minor modification:

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

Это изменение вызвано различиями в кодах ошибок между Windows NT и Windows 95.

Статья описывает способ проверки готовности диска А на соответствие определенным критериям, в частности, на наличие файлов, пустоту или отсутствие диска.


Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


:: Главная :: Диски ::


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-12-22 20:14:06
2025-07-03 07:29:18/0.0055949687957764/1