【文件属性】：
文件名称：Delphi 判断指定盘符的磁盘大小.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 13:12:08
Delphi源码-系统相关
Delphi 判断指定盘符的磁盘大小，delphi7判断磁盘空间大小，是检测程序所在磁盘的容量大小，并不是硬盘容量大小，希望注意哦。以下是相关代码：
function TForm1.GetCurDirSize: Double;
var
size:Double;
begin
size := DiskSize(0);
Result := size / 1024 / 1024 /1024;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := FormatFloat('0.0',Self.GetCurDirSize) 'GB';
end;
【文件预览】：
srcfans.com
----判断磁盘大小()
--------Project1.res(876B)
--------Unit1.dfm(701B)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(738B)
--------Unit2.dcu(515B)
--------Unit2.pas(229B)
--------Project1.dpr(213B)
--------Project1.dof(2KB)
--------Unit1.dcu(4KB)