Delphi-如何获取Windows驱动器的总磁盘空间？ [英] Delphi - How to get total disk space of Windows drive?

问题描述

我需要获取Delphi程序中的总磁盘空间。

I need to get total disk space in Delphi program.

推荐答案

使用DiskSize和DiskFree函数可以解决此问题。
ComboBox1包含驱动器号列表。

Use DiskSize and DiskFree functions for this problem. ComboBox1 contains a list of drives letters.

var
  Disk: Integer;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Total, Free: LongInt;
begin
  Total:=DiskSize(Disk) div 1024;
  Free:=DiskFree(Disk) div 1024;
  Gauge1.MaxValue:=Total;
  Gauge1.Progress:=Free;
  Label1.Caption:='Total size - '+IntToStr(Total);
  Label2.Caption:='Free - '+IntToStr(Free);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Disk:=ComboBox1.ItemIndex+1;
end;

这篇关于Delphi-如何获取Windows驱动器的总磁盘空间？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！