БОЛЬШОЙ FAQ ПО 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ