delphi 获取所有磁盘分区另类方法

本文整理自网络，侵删。

 procedure GetDrivernum(var DiskList: TStringList);
var
i: Char;
AChar: array[1..3] of char;
j: integer;
drv: PChar;
begin
for i := 'C' to 'Z' do
begin
if DiskInDrive(i) then
begin
AChar[1] := i;
AChar[2] := ':';
AChar[3] := #0;
drv := @AChar;
J := GetDriveType(drv);
if J = DRIVE_REMOVABLE then
DiskList.Add(i + ':4'); //(软盘)
if J = DRIVE_FIXED then
DiskList.Add(i + ':1'); //(硬盘)
if J = DRIVE_REMOTE then
DiskList.Add(i + ':3'); //(网络映射)
if J = DRIVE_CDROM then
DiskList.Add(i + ':2'); //(光盘)
if J = DRIVE_RAMDISK then
DiskList.Add(i + ':4'); // (虚拟盘)
if J = DRIVE_UNKNOWN then
DiskList.Add(i + ':4'); // (未知盘)
end;
end;
end;
 

相关阅读 >>

Delphi xe6 android 界面皮肤美化 用stylebook

Delphi 试试带参数的 exit

Delphi让listbox实现即指即显功能

Delphi memo 滚动条 自动滚到最后一行

Delphi 新版内存表 fdmemtable

Delphi 官方使用并行编程库介绍

Delphi用mapfileandchecksum 函数检测 exe 或 dll 是否被修改

delph i判断ip地址是否正确

Delphi winapi: getfocus - 获取当前拥有焦点的窗口的句柄

Delphi 实现简易语音发音（基于tts方式）

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

转载请注明出处：木庄网络博客 » delphi 获取所有磁盘分区另类方法