delphi获取当前计算机所有盘符

本文整理自网络，侵删。

 GetDriveType(路径) 判断一个磁盘驱动器的类型 返回一个整数

0 驱动器类型不确定
1 系统目录不存在
2 DRIVE_REMOVABLE 是可移动驱动器 
3 DRIVE_FIXED 是固定驱动器 
4 DRIVE_REMOTE 是网络驱动器 
5 DRIVE_CDROM 是CD-ROM驱动器 
6 DRIVE_RAMDISK 是虚拟驱动器

function getPath : integer;
var
i:integer;
begin
for i := 65 to 90 do
begin
if (GetDriveType(Pchar(chr(i)+':\')) = 2) or (GetDriveType(Pchar(chr(i)+':\')) = 3) then
Form1.ListBox1.items.addObject(chr(i)+':\',Pointer(i)); //www.delphitop.com
end;
end; 

相关阅读 >>

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

如何访问局域网的access数据库

Delphi adoconnection1连接mssql数据库方法

Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法

Delphi怎么实现一定范围内的随机数呢？

Delphi xe7使用本身的md5单元进行字符串加密

Delphi的对象注销方法destroy和free的区别

Delphi sql server 数据库转换为 access 数据库

Delphi settimer 用法

Delphi xe8 无法进入android的调试状态

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi获取当前计算机所有盘符