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


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

Поиск по базе



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

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

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



Вернуться к списку функций
 Показывает какие диски сушествуют а какие нет и какие из них являются Cd-Rom а какие Floppy

 Прислал: Mad (Ростов-на-Дону) ( 12 февраля 2003 г. )
©  не помню
 Зависимости:
Нет

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Показывает какие диски сушествуют а какие нет и какие из них являются Cd-Rom а какие Floppy

Зависимости: Нет
Автор:       Mad, mail2mad@id.ru, ICQ:161669249, Ростов-на-Дону
Copyright:   не помню
Дата:        12 февраля 2003 г.
***************************************************************** }

procedure driveinfo;
var
   s : String;
   i:integer;
begin
  for i:=ord('A') to ord('Z') do
    begin
    s:=chr(i);
    setlength(s,1);
    s:=s+#58+#92;
    Setlength(s,3);
    case GetDriveType(Pchar(s)) of
      0: memo1.lines.add(chr(i)+' Тип диска невозможно определить.');
      1: memo1.lines.add(chr(i)+' корневая директория не существует.');
      DRIVE_REMOVABLE: memo1.lines.add(chr(i)+' Диск съёмный.');
      DRIVE_FIXED: memo1.lines.add(chr(i)+' Диск не съёмный.');
      DRIVE_REMOTE: memo1.lines.add(chr(i)+' Диск является сетевым ресурсом.');
      DRIVE_CDROM: memo1.lines.add(chr(i)+' Диск является CD-ROM.');
      DRIVE_RAMDISK: memo1.lines.add(chr(i)+' Диск явяляется RAM диском.');
    end;
  end;
end;


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

Наверх ▲