磁盘类型 GetDriveType

最新推荐文章于 2021-05-09 12:06:28 发布

weixin_33717117

最新推荐文章于 2021-05-09 12:06:28 发布

阅读量103

点赞数

本文介绍了一个使用Pascal语言编写的程序，该程序可以遍历从'A'到'Z'的所有驱动器字母，并检测每个对应驱动器的类型。程序将识别并报告固定驱动器、网络驱动器、软盘驱动器、CD-ROM驱动器以及RAM磁盘。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//磁盘类型 GetDriveType
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;
end;

关注博主即可阅读全文