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


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

Поиск по базе



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

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

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



Вернуться к списку функций
 Определение буквы CD-ROM'a

 Прислал: Ender (Киев) ( 24 мая 2002 г. )
©  Made in Sam Sklepal
 Описание:
Функция опредиляет букву CDRoma в диапозоне от A-Z

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

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Определение буквы CD-ROM'a

Функция опредиляет букву CDRoma в диапозоне от A-Z

Зависимости: uses Windows
Автор:       Ender, zool@zeos.net, Киев
Copyright:   Made in Sam Sklepal
Дата:        24 мая 2002 г.
***************************************************************** }

function GetCD_Rom : PChar;
var
  Drive : PChar;
  DriveArray : array[1..27] of PChar;
  i : integer;
begin
  DriveArray[1] := 'A:\';
  DriveArray[2] := 'B:\';
  DriveArray[3] := 'C:\';
  DriveArray[4] := 'D:\';
  DriveArray[5] := 'E:\';
  DriveArray[6] := 'F:\';
  DriveArray[7] := 'G:\';
  DriveArray[8] := 'G:\';
  DriveArray[9] := 'H:\';
  DriveArray[10] := 'I:\';
  DriveArray[11] := 'J:\';
  DriveArray[12] := 'K:\';
  DriveArray[13] := 'L:\';
  DriveArray[14] := 'M:\';
  DriveArray[15] := 'N:\';
  DriveArray[16] := 'O:\';
  DriveArray[17] := 'P:\';
  DriveArray[18] := 'R:\';
  DriveArray[19] := 'Q:\';
  DriveArray[20] := 'S:\';
  DriveArray[21] := 'T:\';
  DriveArray[22] := 'U:\';
  DriveArray[23] := 'V:\';
  DriveArray[24] := 'W:\';
  DriveArray[25] := 'X:\';
  DriveArray[26] := 'Y:\';
  DriveArray[27] := 'Z:\';
  for i := 1 to 27 do
    begin
      Drive := A[i];
      if GetDriveType(Drive) = DRIVE_CDROM then
        Result := A[i];
    end;
end;


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

Наверх ▲