-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
                     "Определения типа диска"
-----------------------------------------------------------------------
function CheckDriveType(Drive: Byte): String;
var
  DriveLetter: Char;
  DriveType  : UInt;
begin
  DriveLetter := Char(Drive + $41);
  DriveType   := GetDriveType(PChar(DriveLetter + ':\'));
  Case DriveType Of
  0: Result := '?';
  1: Result := 'Path does not exists';
  Drive_Removable: Result := 'Removable';
  Drive_Fixed    : Result := 'Fixed';
  Drive_Remote   : Result := 'Remote';
  Drive_CDROM    : Result := 'CD-ROM';
  Drive_RamDisk  : Result := 'RAMDisk'
 else
  Result := 'Unknown';
 end;
end;
-----------------------------------------------------------------------