unit1.dfm

计算各个驱动器的大小以及剩余空间。精确度很高

object Form1: TForm1
  Left = 232
  Top = 260
  Width = 829
  Height = 477
  Caption = #27979#39537#21160#22120#21097#20313#31354#38388
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object SpinEdit1: TSpinEdit
    Left = 176
    Top = 176
    Width = 121
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 0
    Value = 0
    OnChange = SpinEdit1Change
  end
end