【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了，frm_diskFree.pas，希望对大家有所帮助！

    unit frm_diskFree;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, XPMan,StrUtils;
    
    type
      TFrmDiskSize = class(TForm)
        BtnGetFree: TButton;
        GroupBox1: TGroupBox;
        CDiskFree: TChart;
        SDiskFree: TPieSeries;
        CBxDriver: TComboBox;
        LblDisk: TLabel;
        XPManifest1: TXPManifest;
        BtnClose: TButton;
        Bevel1: TBevel;
        procedure BtnGetFreeClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
      private
        procedure GetSize;
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmDiskSize: TFrmDiskSize;
    
    implementation
    
    {$R *.dfm}
    procedure TFrmDiskSize.GetSize;
    var
      Cluster,
      Bytes,
      FreeClusters,
      TotalClusters:LongWord;
    begin
      TotalClusters:=DiskSize( CBxDriver.ItemIndex+3);
      FreeClusters:=Diskfree(CBxDriver.ItemIndex+3);
      //GetDiskFreeSpace(Pchar(CBxDriver.text),Cluster,Bytes,FreeClusters,TotalClusters);
      CDiskFree.Series[0].Clear;
    //  CdiskFree.Series[0].Add(Cluster*Bytes*TotalClusters/(1024*1024),'磁盘容量',rgb(193,193,255));
    //  CdiskFree.Series[0].Add(Cluster*Bytes*FreeClusters/(1024*1024),'剩余空间',RGB(255,255,255));
      CdiskFree.Series[0].Add(TotalClusters,'磁盘容量',rgb(193,193,255));
      CdiskFree.Series[0].Add(FreeClusters,'剩余空间',RGB(255,255,255));
    
    end;
    
    procedure TFrmDiskSize.BtnGetFreeClick(Sender: TObject);
    begin
      GetSize;
    end;
    
    procedure TFrmDiskSize.FormCreate(Sender: TObject);
    var
      i:integer;
    begin
      for i:=ord('A') to ord('Z') do
       if not (GetDriveType(pchar(char(i)+':\'))=1) then
         CBxDriver.Items.Add(pchar(char(i)+':\'));
      CBxDriver.ItemIndex:=0;
    end;
    
    procedure TFrmDiskSize.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    end.
    

上一篇：frm_Dir.pas
下一篇：让我掉下眼泪的