【文件属性】:
文件名称:Delphi 获取指定分区磁盘总空间(容量).rar
文件大小:7KB
文件格式:RAR
更新时间:2022-07-30 03:29:49
Delphi源码-系统相关
Delphi 获取指定磁盘分区(盘符)磁盘容量,或者空间大小,主要是使用DiskSize,把DiskSize获取到的数据进行转换,得出KB或GB,本代码主要是对磁盘容量大小的转换,让人更直观的了解到磁盘分区的大校转换过程如下:
begin
c := ord(DriveComboBox1.Drive);
c := c-96;
Ispare := DiskSize(c)/1024;
SDir := 'KB';
if Ispare/1024>=1 then
begin
Ispare := Ispare/1024;
SDir := 'MB';
if Ispare/1024>=1 then
begin
Ispare := Ispare/1024;
SDir := 'G';
end;
end;
S := FormatFloat('0.0',Ispare);
Edit1.Text := S SDir;
end;
【文件预览】:
codesc.net
----DiskSize()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(5KB)
--------Unit1.dfm(1KB)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(3KB)
--------Unit1.pas(1KB)