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

Автор: Mystic
WEB-сайт: http://delphibase.endimus.com

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

Обсудить статью на форуме