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