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

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

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

• Как расшарить диск
• Как проверить находится ли файл на локальном диске
• Как проверить готовность диска А