明明是本地硬盘,却显示是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;
代码如下:
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;
解决方案 »
- 关于窗体关闭的问题
- 怎样检查某个odbc驱动是否安装
- 问窗口控制问题
- 取已知字符串的后四位形成新的字符的相应函数吗?我想不起来了!谢谢!!!
- DELPHI控件的源代码
- 请问在listview的任意一列中进行模糊查找,查到后将焦点落在找到的内容上.谢!!!
- 谁知道如何将DBGrid中的数据转换为EXCEL格式保存起来,谢谢
- 定时开机与关机的问题。
- socket通信的稳定性问题(在winnt未发现问题,在98下程序频频死掉),请大家提提思路或相关解决办法!
- C++Builder XE7 自带的fastreport 中events失效?
- pascal编译器问题!!!
- 编程爱好者网站 http://www.programfan.com
DRIVE_FIXED 是不可移动的就是硬盘了,,DRIVE_REMOTE The drive is a remote (network) drive.DRIVE_REMOTE: DriveString:='驱动器为远程驱动器';