Delphi World - Проверка, доступно ли устройство без всяких окошек об ошибках
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Проверка, доступно ли устройство без всяких окошек об ошибках

Автор: 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('А дискеты-то нет :(');
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования