После игры в покер виндозе выдает сообщение:
- Вы проиграли 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:
Lamer: Вставьте $273 в диск A и нажмите любую клавишу.
User: Нажмите кнопку сброса и хвастайтесь перед друзьями о "хакинге" покера.
Hacker: Напишите программу, имитирующую вставку $273 в диск A, а затем обновите ее для имитации вставки $274, $293 и $765 в диски A и B.
В отношении кода самой функции:
Функция DriveState принимает символ (driveletter) в качестве входного параметра и возвращает значение перечисления, указывающее состояние диска. Функция использует функции FindFirst и FindClose для поиска файлов на указанном диске. Вот разбивка кода:
Установите режим ошибок в режим критических ошибок.
Создайте строку маски (mask) с буквой диска (driveletter) и символом wildcard (*.*). Это будет соответствовать любому файлу на диске.
Используйте FindFirst для поиска файлов на диске. Если успешно, верните код результата (retcode).
В зависимости от кода результата:
0: Диск имеет хотя бы один файл (DS_ DISK_ WITH_FILES).
-18: Диск пуст, но OK (DS_EMPTY_ДИСК).
-21: Ошибка DOS "NOT_READY" (DS_NO_DISK).
Иначе, верните 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
Telegram-канал