GetDriveType(路徑)? 判斷一個磁盤驅(qū)動器的類型?返回一個整數(shù)

0 驅(qū)動器類型不確定
1 系統(tǒng)目錄不存在
2?DRIVE_REMOVABLE?? 是可移動驅(qū)動器???
3 DRIVE_FIXED?????? 是固定驅(qū)動器?????
4 DRIVE_REMOTE????? 是網(wǎng)絡(luò)驅(qū)動器?????
5 DRIVE_CDROM?????? 是CD-ROM驅(qū)動器???
6 DRIVE_RAMDISK???? 是虛擬驅(qū)動器???

??

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中列出當(dāng)前固定驅(qū)動器和可移動驅(qū)動器?

轉(zhuǎn)載于:https://www.cnblogs.com/lanzheking/archive/2008/08/05/1260555.html

總結(jié)

以上是生活随笔為你收集整理的delphi获取当前计算机所有盘符的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。