{ **** UBPFD *********** by delphibase.endimus.com **** >> Проверка, доступно ли устройство без всяких окошек об ошибках Проверка, доступно ли устройство без всяких окошек об ошибках. Зависимости: Windows Автор: Mystic, mystic2000@newmail.ru, ICQ:125905046, Харьков Copyright: Mystic Дата: 6 марта 2003 г. ***************************************************** } functionIsDiskInDrive(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
;
Пример использования:
ifnot
IsDiskInDriver('A:') then
raise
Exception.Create('А дискеты-то нет :(');