-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
              "Определения присутствия диска в системе"
-----------------------------------------------------------------------
Очень часто требуется определить сущестование в системе диска под
определенной буквой или цифрой. Ниже приведен один простой пример,
который позволяет это сделать.

function DriveExists(Drive: Byte): Boolean;
begin
  Result := Boolean (GetLogicalDrives And (1 shl Drive));
end;
-----------------------------------------------------------------------