ufrmdrive.dfm

磁盘驱动器管理程序,通过它可以清楚的看到你的电脑驱动器情况,适合程序初学使用!

object FrmDrive: TFrmDrive
  Left = 315
  Top = 205
  Width = 465
  Height = 204
  Caption = #39537#21160#22120#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object lstDrives: TListBox
    Left = 8
    Top = 8
    Width = 257
    Height = 129
    ItemHeight = 12
    TabOrder = 0
    OnClick = lstDrivesClick
  end
  object pnlInfo: TPanel
    Left = 272
    Top = 8
    Width = 177
    Height = 129
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 54
      Height = 12
      Caption = #25159#21306'/'#31751#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 66
      Height = 12
      Caption = #23383#33410'/'#25159#21306#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 48
      Width = 60
      Height = 12
      Caption = #21487#29992#31751#25968#65306
    end
    object Label4: TLabel
      Left = 8
      Top = 64
      Width = 48
      Height = 12
      Caption = #24635#31751#25968#65306
    end
    object Label5: TLabel
      Left = 8
      Top = 88
      Width = 60
      Height = 12
      Caption = #21487#29992#31354#38388#65306
    end
    object Label6: TLabel
      Left = 8
      Top = 104
      Width = 48
      Height = 12
      Caption = #24635#31354#38388#65306
    end
    object lblSectPerCluster: TLabel
      Left = 72
      Top = 8
      Width = 102
      Height = 12
      Caption = 'lblSectPerCluster'
    end
    object lblBytesPerSector: TLabel
      Left = 72
      Top = 24
      Width = 102
      Height = 12
      Caption = 'lblBytesPerSector'
    end
    object lblFreeClusters: TLabel
      Left = 72
      Top = 48
      Width = 90
      Height = 12
      Caption = 'lblFreeClusters'
    end
    object lblTotalClusters: TLabel
      Left = 72
      Top = 64
      Width = 96
      Height = 12
      Caption = 'lblTotalClusters'
    end
    object lblFreeSpace: TLabel
      Left = 72
      Top = 88
      Width = 72
      Height = 12
      Caption = 'lblFreeSpace'
    end
    object lblTotalSpace: TLabel
      Left = 72
      Top = 104
      Width = 78
      Height = 12
      Caption = 'lblTotalSpace'
    end
  end
  object btnGetDrive: TButton
    Left = 288
    Top = 144
    Width = 75
    Height = 25
    Caption = #33719#21462#39537#21160#22120
    TabOrder = 2
    OnClick = btnGetDriveClick
  end
  object btnClose: TButton
    Left = 376
    Top = 144
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 3
    OnClick = btnCloseClick
  end
end