Понедельник, 20.08.2018
Королевство Delphi
Главное меню
Статьи
Наш опрос
Как часто ви на этот сайт заходите?
Всего ответов: 148
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Разные » Примеры Delphi

Как узнать, находится ли дискета в дисководе?
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 }

Получить ссылку на материал

Категория: Примеры Delphi | Добавил: Барон (21.12.2011)
Просмотров: 263 | Теги: дисковод, дискета | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Delphi.NET [3]
Kylix Delphi for Linux [9]
Советы Дельферу [6]
Хитрости в Delphi [2]
Обзор Delphi [45]
Инсталлятор [11]
Пользовательский интерфейс [18]
Примеры Delphi [93]
Функции и процедуры [16]
Разные [31]
Королевство Delphi © 2010-2018
Яндекс цитирования