unit1.dfm

delphi写的拷贝指定起始扇区开始的一定扇区数的代码

object Form1: TForm1
  Left = 397
  Top = 229
  Width = 306
  Height = 253
  Caption = #22825#30462#25968#25454#25327#25937#24515'  '#24037#20855'NO.51'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 24
    Width = 289
    Height = 17
    Shape = bsTopLine
  end
  object Button1: TButton
    Left = 16
    Top = 160
    Width = 265
    Height = 41
    Caption = #24320#22987#22797#21046#25159#21306
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 16
    Top = 40
    Width = 265
    Height = 105
    TabOrder = 1
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 81
      Height = 13
      AutoSize = False
      Caption = #24320#22987#25159#21306#65306
    end
    object Label2: TLabel
      Left = 32
      Top = 68
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #25991#20214#22823#23567#65306
    end
    object start: TEdit
      Left = 120
      Top = 32
      Width = 121
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
      Text = '31159100'
    end
    object size: TEdit
      Left = 120
      Top = 60
      Width = 121
      Height = 21
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 1
      Text = '1160616'
    end
  end
  object SD: TSaveDialog
    Left = 248
    Top = 120
  end
end