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

   function DriveState(DrvLetter: Char): TDriveState;
   var
     Mask: String[6];
     SearchRec: TSearchRec;
     oldMode: Cardinal;
     ReturnCode: Integer;
   begin
     oldMode: = SetErrorMode(SEM_FAILCRITICALERRORS);
     Mask:= '?:\*.*';
     Mask[1] := DrvLetter;
     {$I-}  { отключить обработку исключительных ситуаций }
     ReturnCode := FindFirst(Mask, faAnyfile, SearchRec);
     FindClose(SearchRec);
     {$I+}
     case ReturnCode of
       { как минимум один файл был найден }
       0: Result := DS_DISK_WITH_FILES;
       { файлов не найдено и дискета в порядке }
       -18: Result := DS_EMPTY_DISK;
       { DS_NO_DISK для DOS, ERROR_NOT_READY для WinNT, ERROR_PATH_NOT_FOUND для Win 3.1 }
       -21, -3: Result := DS_NO_DISK;
     else
       { дискета лежит в дисководе но она не форматировнная }
       Result := DS_UNFORMATTED_DISK;
     end;
     SetErrorMode(oldMode);
   end; { DriveState }