delphi获取当前计算机所有盘符
GetDriveType(路径)
0 驱动器类型不确定
1 系统目录不存在
2
3 DRIVE_FIXED
4 DRIVE_REMOTE
5 DRIVE_CDROM
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中列出当前固定驱动器和可移动驱动器