//磁盘类型 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;
磁盘类型 GetDriveType
原创JLee79 ©著作权
文章标签 磁盘类型 GetDriveType 文章分类 后端开发
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
上一篇:读取与修改字符串中的字符
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
Linux 永久挂载磁盘
linux 目录挂载
重启 根目录 -
Windows API一日一练(61)GetDriveType函数ico #define #ifdef 调用函数 .net