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


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

Поиск по базе



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

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

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



Вернуться к списку функций
 Получене имен установленных в системе CDROM'ов

 Прислал: DenKop (Ростов-на-дону) ( 18 августа 2002 г. )
©  Собственное написание (Денис)
 Описание:
Возвращает красивые имена(имя производителя Н: SONY CD-RW CDRX185E1) установленных в системе CDROM'ов.

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

 Ограничения:
Тестировался в WinXP Pro, разрабатывался в D5.

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Получене имен установленных в системе CDROM'ов

Возвращает красивые имена(имя производителя Н: SONY CD-RW CDRX185E1) установленных в системе CDROM'ов.

Зависимости: Registry
Автор:       DenKop, Ростов-на-дону
Copyright:   Собственное написание (Денис)
Дата:        18 августа 2002 г.
***************************************************************** }

procedure GetAviableCDROM(ListCD:TStrings);
var
 Reg:TRegistry;
 Key,SubKey,TempKey:string;
 i,KolCD:byte;
begin
 Reg:=TRegistry.Create;
 with Reg do
 try
  Key:='SYSTEM\CurrentControlSet\Services\Cdrom\Enum'; {Здесь лежат имена ключей с информацией об установленных CDROM'ах}
  SubKey:='SYSTEM\CurrentControlSet\Enum\';
  Access:=KEY_READ; {На общих правах NT не пускает к этим ключам}
  RootKey:=HKEY_LOCAL_MACHINE;
  if not OpenKey(Key,False) then Exit;
  KolCD:=ReadInteger('Count'); {Читаю колличество CDROM}
  if KolCD=0 then Exit;
  for i:=0 to KolCD-1 do
  begin
   OpenKey(Key,False);
   TempKey:=ReadString(IntToStr(i));
   CloseKey;
{ Ключ который содержит инфу о CD формируется так: SubKey+ПРОЧИТ_ИЗ_KEY}
   if not OpenKey(SubKey+Tempkey,False) then Break;
   ListCD.Add(ReadString('FriendlyName')); {Дружественное имя CD}
  {Из этого же ключа можно почитать много полезной инфы о конкретном CD}
   CloseKey;
  end;
 finally
  Reg.Free;
 end;
end;

 Пример использования:
GetAviableCDROM(ComboBox.Items);


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

Наверх ▲