Проверка, доступно ли устройство без всяких окошек об ошибках

Советы » Диски » Проверка, доступно ли устройство без всяких окошек об ошибках

{ **** 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('А дискеты-то нет :(');

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com