udisk.dfm

在Windows 2000/XP中读写硬盘分区,源码及运行程序

object Form1: TForm1
  Left = 192
  Top = 114
  BorderStyle = bsDialog
  Caption = #30913#30424#25159#21306#35835#20889
  ClientHeight = 545
  ClientWidth = 565
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 565
    Height = 431
    Align = alTop
    TabOrder = 0
    object StrG1: TStringGrid
      Left = 1
      Top = 1
      Width = 563
      Height = 429
      Align = alClient
      ColCount = 18
      DefaultColWidth = 23
      RowCount = 33
      ScrollBars = ssVertical
      TabOrder = 0
      OnDrawCell = StrG1DrawCell
      OnKeyPress = StrG1KeyPress
      OnSetEditText = StrG1SetEditText
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 431
    Width = 565
    Height = 114
    Align = alClient
    TabOrder = 1
    object Label2: TLabel
      Left = 8
      Top = 12
      Width = 52
      Height = 13
      Caption = #36873#25321#30913#30424
    end
    object Label3: TLabel
      Left = 362
      Top = 12
      Width = 73
      Height = 13
      Caption = #36923#36753#20998#21306'(&A)'
      FocusControl = CBox1
    end
    object Label4: TLabel
      Left = 192
      Top = 12
      Width = 73
      Height = 13
      Caption = #29289#29702#30913#30424'(&P)'
      FocusControl = CBox2
    end
    object Label1: TLabel
      Left = 5
      Top = 44
      Width = 80
      Height = 13
      Caption = #24320#22987#25159#21306'(&T):'
      FocusControl = EdSt
    end
    object EdName: TEdit
      Left = 64
      Top = 9
      Width = 113
      Height = 21
      ReadOnly = True
      TabOrder = 0
      OnChange = EdNameChange
    end
    object CBox1: TComboBox
      Left = 433
      Top = 8
      Width = 83
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 2
      TabOrder = 1
      Text = 'C:'
      OnChange = CBox1Change
      Items.Strings = (
        'A:'
        'B:'
        'C:'
        'D:'
        'E:'
        'F:'
        'H:'
        'I:'
        'J:'
        'K:'
        'L:'
        'M:'
        'N:'
        'O:'
        'P:'
        'Q:'
        'R:'
        'S:'
        'T:'
        'U:'
        'V:'
        'W:'
        'X:'
        'Y:'
        'Z:')
    end
    object CBox2: TComboBox
      Left = 266
      Top = 8
      Width = 83
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = #29289#29702#30913#30424'1'
      OnChange = CBox2Change
      Items.Strings = (
        #29289#29702#30913#30424'1'
        #29289#29702#30913#30424'2'
        #29289#29702#30913#30424'3'
        #29289#29702#30913#30424'4'
        '')
    end
    object ChB1: TCheckBox
      Left = 193
      Top = 42
      Width = 97
      Height = 17
      Caption = #20801#35768#32534#36753'(&E)'
      TabOrder = 3
      OnClick = ChB1Click
    end
    object ChB2: TCheckBox
      Left = 297
      Top = 42
      Width = 97
      Height = 17
      Caption = #20801#35768#20889#20837'(&S)'
      TabOrder = 4
      OnClick = ChB2Click
    end
    object EdSt: TEdit
      Left = 93
      Top = 40
      Width = 53
      Height = 21
      TabOrder = 5
      Text = '0'
      OnChange = EdStChange
      OnKeyPress = EdStKeyPress
    end
    object B2: TButton
      Left = 88
      Top = 81
      Width = 75
      Height = 25
      Caption = '(&W)'#20889#20998#21306
      Enabled = False
      TabOrder = 6
      OnClick = B2Click
    end
    object B1: TButton
      Left = 8
      Top = 81
      Width = 75
      Height = 25
      Caption = '(&R)'#35835#20998#21306
      Enabled = False
      TabOrder = 7
      OnClick = B1Click
    end
    object B3: TButton
      Left = 184
      Top = 81
      Width = 75
      Height = 25
      Caption = #35835#25991#20214
      TabOrder = 8
      OnClick = B3Click
    end
    object B4: TButton
      Left = 272
      Top = 81
      Width = 75
      Height = 25
      Caption = #20889#25991#20214
      TabOrder = 9
      OnClick = B4Click
    end
    object ChB3: TCheckBox
      Left = 400
      Top = 42
      Width = 97
      Height = 17
      Caption = '(&F)'#20801#35768#22635#20805
      TabOrder = 10
      OnClick = ChB3Click
    end
    object EdFull: TEdit
      Left = 504
      Top = 40
      Width = 42
      Height = 21
      CharCase = ecUpperCase
      Enabled = False
      MaxLength = 3
      TabOrder = 11
      Text = '0'
      OnChange = EdFullChange
      OnKeyPress = EdFullKeyPress
    end
    object B5: TButton
      Left = 432
      Top = 81
      Width = 75
      Height = 25
      Caption = #22635#20805
      Enabled = False
      TabOrder = 12
      OnClick = B5Click
    end
  end
  object OpenDlg: TOpenDialog
    Title = #35835#21462#25991#20214
    Left = 104
    Top = 56
  end
  object SaveDlg: TSaveDialog
    Title = #20445#23384#25991#20214
    Left = 136
    Top = 56
  end
end