Определить букву первого CD-ROM

Delphi , Файловая система , CD-ROM

function GetFirstCDROM: string;
{возвращает букву 1-го привода CD-ROM или пустую строку}
var
  w: dword;
  Root: string;
  i: integer;
begin
  w := GetLogicalDrives;
  Root := '#:\';
  for i := 0 to 25 do
  begin
    Root[1] := Char(Ord('A') + i);
    if (W and (1 shl i)) > 0 then
      if GetDriveType(Pchar(Root)) = DRIVE_CDROM then
      begin
        Result := Root[1];
        exit;
      end;
  end;
  Result := '';
end;

Here's a translation of the provided text into Russian:

Функция GetFirstCDROM в Delphi предназначена для определения буквы первого CD-ром накопителя, доступного на системе. Она достигает этого, итерируя через логические диски и проверяя каждый из них на то, является ли он CD-ром накопителем.

Распределение функции:

1. Переменная w присваивается результат вызова функции GetLogicalDrives, которая возвращает битмаску, указывающую доступные логические диски.
2. Переменная Root инициализируется значением '#:\', которое будет использоваться как шаблон для строительства буквы диска и двоеточия.
3. Цикл for итерирует от 0 до 25 (число возможных букв дисков, 'A' до 'Z'). Для каждой итерации:
   • Первый символ Root устанавливается в соответствующее ASCII-значение, добавляя индекс i к ASCII-значению 'A'.
   • Если битмаска w указывает на то, что логический диск в позиции i существует ((W and (1 shl i)) > 0), то:
     • Функция вызывает GetDriveType с построенной буквой диска в качестве аргумента.
     • Если результат равен DRIVE_ CDROM, это означает, что диск является CD-ром накопителем, поэтому функция устанавливает переменную Result в соответствующую букву диска и выходит из цикла.

Если после итерации через все возможные буквы дисков не найдено CD-ром накопителей, функция возвращает пустую строку ('').

Альтернативное решение использует более прямой подход:

function GetFirstCDROM: string;
var
  i: integer;
begin
  for i := 0 to 25 do begin
    if GetDriveType(Format('A:\')) = DRIVE_CDROM then
      Result := 'A';
    else if GetDriveType(Format('B:\')) = DRIVE_CDROM then
      Result := 'B';
    else if ... // и так далее для каждого буквы диска
    else if GetDriveType(Format(Char(Ord('A') + i) + ':')) = DRIVE_CDROM then
      Result := Char(Ord('A') + i);
  end;
  Result := '';
end;

В этом альтернативном решении мы используем цикл для строительства буквы диска и вызываем GetDriveType с этим диском. Если результат равен DRIVE_ CDROM, мы устанавливаем переменную Result в соответствующую букву диска и выходим из цикла.

Обратите внимание, что это решение менее эффективно, чем оригинальная функция, поскольку оно вызывает GetDriveType для каждого возможного дискa, а не только итерирует через логические диски один раз. Однако альтернативное решение может быть проще понять для разработчиков, которые новые в Delphi или программировании Windows API.

В статье описывается функция на языке программирования Delphi, которая определяет букву первого CD-ROM привода и возвращает ее как строку.

Комментарии и вопросы

:: Главная :: CD-ROM ::