Проверка, доступно ли устройство без всяких окошек об ошибкахDelphi , Файловая система , ДискиПроверка, доступно ли устройство без всяких окошек об ошибках
Автор: Mystic { **** UBPFD *********** by delphibase.endimus.com **** >> Проверка, доступно ли устройство без всяких окошек об ошибках Проверка, доступно ли устройство без всяких окошек об ошибках. Зависимости: Windows Автор: Mystic, mystic2000@newmail.ru, ICQ:125905046, Харьков Copyright: Mystic Дата: 6 марта 2003 г. ***************************************************** } function IsDiskInDrive(Drive: string): Boolean; var ErrMode: Cardinal; VolName: array[0..255] of Char; FS: array[0..255] of Char; MaxComSize: Cardinal; Flags: Cardinal; begin ErrMode := SetErrorMode(SEM_FAILCRITICALERRORS); try Result := GetVolumeInformation(PChar(Drive), VolName, SizeOf(VolName), nil, MaxComSize, Flags, FS, SizeOf(FS)); finally SetErrorMode(ErrMode); end; end; Пример использования: if not IsDiskInDriver('A:') then raise Exception.Create('А дискеты-то нет :('); Статья Проверка, доступно ли устройство без всяких окошек об ошибках раздела Файловая система Диски может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |