Delphi实现获取磁盘空间大小的方法
来源:互联网 发布:龙神契约进阶数据 编辑:程序博客网 时间:2024/06/09 19:59
unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var driver:pchar; sec1, byt1, cl1, cl2:longword;begin driver:=pchar(edit1.text);//要显示的驱动器名 GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2); cl1 := cl1*sec1 * byt1; cl2 := cl2*sec1 * byt1; Label1.Caption:= '该驱动器总共容量' + Formatfloat('###,##0',cl2) + '字节'; Label2.Caption := '该驱动器可用容量' + Formatfloat('###,##0',cl1) + '字节';end;end.
0 0
- Delphi实现获取磁盘空间大小的方法
- C#实现获取磁盘空间大小的方法
- 获取磁盘空间大小
- java获取磁盘空间大小
- linux 获取磁盘空间大小
- 获取 磁盘空间、文件夹等大小
- C#获取磁盘空间信息的几个方法
- 在delphi中限制Form大小的实现方法
- Ubuntu下查看文件以及磁盘空间大小管理的方法
- 使用IOCTL_DISK_GET_LENGTH_INFO控制码获取磁盘空间大小
- php获取服务器所有磁盘空间大小
- iPhone获取磁盘空间正规方法
- iPhone中获取磁盘空间方法
- 设置Delphi窗体大小的方法
- Delphi实现控件的移动、改变大小
- 如何用 SQL 语句获取某个 ACCESS 表占用的磁盘空间大小?
- Linux系统上给文件按占用磁盘空间大小排序的方法
- MySQL数据库查询数据库及各个表所占磁盘空间大小的方法
- 如何给数据中心机房降温,望尔移动工业空调帮您解决
- shell中获得当前的日期
- 使用Spring注解完成Bean的定义
- Tomcat的安装
- java中的不可变类
- Delphi实现获取磁盘空间大小的方法
- android studio使用git的部分注意事项
- 银行储蓄系统
- poj 1459 超级源点超级汇点EK最大流
- 关于Redis两种持久化方式的说明
- delphi PChar与String互转
- redhat linux 系统安装镜像 ISO 文件下载集合
- B平衡树
- delphi 获取程序版本及时间