本文整理自网络,侵删。
GetDriveType(路径) 判断一个磁盘驱动器的类型 返回一个整数
0 驱动器类型不确定
1 系统目录不存在
2 DRIVE_REMOVABLE 是可移动驱动器
3 DRIVE_FIXED 是固定驱动器
4 DRIVE_REMOTE 是网络驱动器
5 DRIVE_CDROM 是CD-ROM驱动器
6 DRIVE_RAMDISK 是虚拟驱动器
代码:
var
i:integer;
begin
for i:=65 to 90 do //从A盘到Z盘检测
begin
if GetDriveType(Pchar(char(i)+':\')) = 3 then //如果是固定驱动器
listbox1.Items.Add(char(i));
end;
end;
相关阅读 >>
Delphi xe datasnap服务器获取客户端ip地址
Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar
Delphi 利用thttpclient实现http异步下载
更多相关阅读请进入《Delphi》频道 >>