Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Дисковое оборудование



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

 Прислал: Mystic (Харьков) ( 6 марта 2003 г. )
©  Mystic
 Описание:
Проверка, доступно ли устройство без всяких окошек об ошибках.

 Зависимости:
Windows

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Проверка, доступно ли устройство без всяких окошек об ошибках

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

Зависимости: 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('А дискеты-то нет :(');


Вернуться к списку функций

Наверх ▲