delphi 获取所有磁盘盘符

var

Drive: Char;

DriveLetter: String[4];

begin

for Drive := 'A' to 'Z' do

begin

DriveLetter := Drive + ':\';

case GetDriveType(PChar(Drive + ':\')) of

DRIVE_REMOVABLE:

Memo1.Lines.Add(DriveLetter + ' Floppy Drive');

DRIVE_FIXED:

Memo1.Lines.Add(DriveLetter + ' Fixed Drive');

DRIVE_REMOTE:

Memo1.Lines.Add(DriveLetter + ' Network Drive');

DRIVE_CDROM:

Memo1.Lines.Add(DriveLetter + ' CD-ROM Drive');

DRIVE_RAMDISK:

Memo1.Lines.Add(DriveLetter + ' RAM Disk');

end;

end;