1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function disktyp(root_verz: Char): String;
var
  szDrive : array[0..5] of Char;
begin
  FillChar(szDrive, SizeOf(szDrive), #0);
  StrPCopy(szDrive, root_verz);
  StrCat(szDrive, ':\');

  case GetDriveType(@szDrive) of
    DRIVE_CDROM       : Result := 'CD-ROM';
    DRIVE_FIXED       : Result := 'Hard Disc';
    DRIVE_RAMDISK     : Result := 'Ramdisk';
    DRIVE_REMOTE      : Result := 'Netwok Filesystem';
    DRIVE_REMOVABLE   : Result := 'Wechsellaufwerk';
    DRIVE_NO_ROOT_DIR : Result := 'No Root-Directory';
    DRIVE_UNKNOWN     : Result := 'Unknown Filesystem';
  end;
end;