网页素材: 导航菜单选项卡滑动门焦点图图片切换下拉菜单弹出层Tabs链接提示

您的当前位置: 源码爱好者 » 网页制作教程(编程教程) » Delphi技术教程

Delphi获取磁盘空间大小

  • 标签:获取磁盘容量 更新时间:2014-07-22
  • Delphi获取指定的磁盘空间容量大小,检测磁盘大小,从combox中选择磁盘代号,点击“检测驱动器”容量信息的按钮,就可以在下边显示出该磁盘的总空间大小以及要用容量的大小。程序代码如下:

    unit Unit1;
    interface
    uses
      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.

     

  • 已读: 次 收藏本文关闭本文打印本文复制链接
处理 SSI 文件时出错