Как можно перечислить все диски?

← →
SamProf © (2006-03-27 19:25) [0]

Мастера, Как перечислить все диски в компе?
c:, d:, e:.....

← →
PZ (2006-03-27 20:00) [1]

Например, так:
Function TipDrive(Drive : Char): String; Var Disk : Byte; Begin Disk := (GetDriveType(PChar(Drive + ":\"))); If Disk in [DRIVE_REMOVABLE, DRIVE_FIXED, DRIVE_REMOTE, DRIVE_CDROM] then begin Result := "CD"; If Disk = DRIVE_FIXED then Result := "HDD"; If Disk = DRIVE_REMOVABLE then Result := "Rem" end; End; { TipDrive }

(*//==========================================================
Функция GetDriveType Returns:
DRIVE_UNKNOWN = 0; {$EXTERNALSYM DRIVE_UNKNOWN}
DRIVE_NO_ROOT_DIR = 1; {$EXTERNALSYM DRIVE_NO_ROOT_DIR}
DRIVE_REMOVABLE = 2; {$EXTERNALSYM DRIVE_REMOVABLE}
DRIVE_FIXED = 3; {$EXTERNALSYM DRIVE_FIXED}
DRIVE_REMOTE = 4; {$EXTERNALSYM DRIVE_REMOTE}
DRIVE_CDROM = 5; {$EXTERNALSYM DRIVE_CDROM}
DRIVE_RAMDISK = 6; {$EXTERNALSYM DRIVE_RAMDISK}

//============================================================
*)

← →
TUser © (2006-03-28 08:14) [2]

> PZ (27.03.06 20:00) [1]

case есть

← →
PZ (2006-03-28 09:48) [3]

Как можно перечислить все диски? Найти похожие ветки