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代码

Delphi isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday ... 判断时间是否合法

Delphi tstrings类的一些技巧

Delphi dbexpress的upwherekeyonly的使用注意事项

Delphi 写3389自动登录器

Delphi日期时间函数

Delphi unicode转汉字 ，支持自动过滤非 unicode编码

Delphi 如何读取内存中的数据?

Delphi 判断两个时间差是否在一个指定范围内

Delphi xe, xe10, 创建 activeform 和 activex 工程的方法

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

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