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 根据特殊符号字符获取字符串前或后的字符

Delphi twebbrowser静音

Delphi xe5复制粘贴操作

Delphi 按f11程序全屏

Delphi idhttp的基本用法

Delphi 跟随鼠标位置点击弹出菜单

Delphi 2009 之 tcategorypanelgroup[2]: headeralignment、gradientdirection

Delphi 变体数组

Delphi 无法调用cmd nbtstat命令解决办法

Delphi idhttp用法详解

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...