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


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

Поиск по базе



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

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

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



Вернуться к списку функций
 Определение типа диска, указанного в параметре Drive

 Прислал: VID (Махачкала) ( 26 апреля 2002 г. )
©  стянул откудо-то + собственные корректировки (VID)
 Описание:
Функция возвращает типа диска (в виде строки), указанного в параметре Drive
Например, если Drive = 'C:\', то Result = 'Fixed'; 0 : Result:='UNKNOWN';

RESULT Обозначение
'Drive not exists' Диск не существует
'Removable' Переносной, нефиксированный
'Fixed' Фиксированный
'Remote' Удалённый, сетевой
'CDROM' CDRom
'RAMDISK' Диск, созданный в ОЗУ
else Result:='UNKNOWN';

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

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

Функция возвращает типа диска (в виде строки), указанного в параметре Drive
Например, если Drive = 'C:\', то Result = 'Fixed'; 0 : Result:='UNKNOWN';

RESULT Обозначение
'Drive not exists' Диск не существует
'Removable' Переносной, нефиксированный
'Fixed' Фиксированный
'Remote' Удалённый, сетевой
'CDROM' CDRom
'RAMDISK' Диск, созданный в ОЗУ
else Result:='UNKNOWN';

Зависимости: windows
Автор:       VID, vidsnap@mail.ru, ICQ:132234868, Махачкала
Copyright:   стянул откудо-то + собственные корректировки (VID)
Дата:        26 апреля 2002 г.
***************************************************************** }

function CheckDriveType(Drive: String): String;
var DriveType: UInt;
begin
DriveType:=GetDriveType(PChar(DRIVE));
case DriveType of
  0 : Result:='UNKNOWN';
  1 : Result:='Drive not exists';
  DRIVE_REMOVABLE: Result:='Removable';
  DRIVE_FIXED : Result:='Fixed';
  DRIVE_REMOTE : Result:='Remote';
  DRIVE_CDROM : Result:='CDROM';
  DRIVE_RAMDISK : Result:='RAMDISK';
else Result:='UNKNOWN';
end;
end;


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

Наверх ▲