Как проверить существование диска в системе?

Delphi FAQ >> Система

Чтобы проверить, есть ли в системе диск с указанным номером, можно проверить его наличие в списке дисков, возвращаемом функцией GetLogicalDrives. Понадобиться это может, например, для того чтобы перечислить все диски, имеющиеся в системе. Ниже приведена готовая функция на языке Delphi, возвращающая Ложь или Истину в зависимости от наличия в системе диска с указанным номером.
//проверка существования в системе диска с номером N
function DriveExists(N: Byte): Boolean;
begin
  Result := Boolean(GetLogicalDrives and (1 shl N));
end;


Даже в такое нежаркое лето хорошие мужские солнечные очки стоят достаточно дорого.