delphi 获取所有磁盘分区

本文整理自网络，侵删。

 
procedure TForm1.FormCreate(Sender: TObject);
var str:string;
    Drivers:Integer;
    driver:char;
    i,temp:integer;
    d1,d2,d3,d4: DWORD;       //
    ss:string;

begin
  ss:='';
  Drivers:=GetLogicalDrives;
  temp:=(1 and Drivers);
  for i:=0 to 26 do
  begin
    if temp=1 then
    begin
      driver:=char(i+integer('A'));
      str:=driver+':';
      if (driver<>'') and (getdrivetype(pchar(str))<>drive_cdrom) and (getdrivetype(pchar(str))<>DRIVE_REMOVABLE) then  //这里可以修改 获取光盘 可移动磁盘 
      begin
        GetDiskFreeSpace(pchar(str),d1,d2,d3,d4);
        ComboBox1.Items.Add(str);

       end;
    end;
    drivers:=(drivers shr 1);
    temp:=(1 and Drivers);

  end;

end;
 

相关阅读 >>

用Delphi编写涂鸦桌面的小程序

Delphi fmx 切换窗体最大化

Delphi tlist性能注意事项

Delphi检测android mock位置

Delphi执行js

Delphi 防止刷新时闪烁的终极解决办法

Delphi 检查字符串是不是 包含 中文和获取中文字符个数

Delphi下获取ie的useragent的方法

Delphi 文件名变小写的函数

idmessage读取eml内容报

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

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