明明是本地硬盘,却显示是dtFixed,不知道是什么原因?
代码如下:
var
i:integer;
DriveChar: Char;
DriveString:String;
DriveType:TDriveType;
DriveBits: set of 0..25;
begin
    Integer(DriveBits) := GetLogicalDrives;
    for i:=0 to 25 do
    begin
      if not (i in DriveBits) then Continue;
      //格式化一个字符串,用来表示根目录
      DriveChar := Char(i + Ord('a'));
      DriveType:=TDriveType(GetDriveType(PChar(DriveChar + ':\')));
      case DriveType of
      dtFloppy: DriveString:='软驱';
      dtFixed: DriveString:='驱动器为远程驱动器';
      dtCDROM: DriveString:='驱动器为CD-ROM';
      dtRAM: DriveString:=C+'驱动器为硬盘分区';
      end;
end;