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

最新推荐文章于 2024-05-14 15:46:47 发布

最新推荐文章于 2024-05-14 15:46:47 发布 · 311 阅读

本文介绍了一个使用GetDriveType函数来检测并列举当前计算机上所有固定驱动器和可移动驱动器的方法。通过循环遍历A到Z的所有驱动器号，并检查每个驱动器的类型，该方法能够有效地识别出所需的驱动器。

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));
end ;
end ;

程序效果将在Form1.ListBox1中列出当前固定驱动器和可移动驱动器