unit1.dfm

基于Internet的利用IIS实现系统的自动更新程序

object Form1: TForm1
  Left = 287
  Top = 285
  BorderStyle = bsDialog
  Caption = 'Update Demo - DelphiBox.com'
  ClientHeight = 304
  ClientWidth = 484
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 176
    Top = 136
    Width = 289
    Height = 113
    Caption = 'New Information'
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 258
      Top = 80
      Width = 17
      Height = 17
      Hint = 'Download Now ...'
      Caption = #8595
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object LabeledEdit2: TLabeledEdit
      Left = 16
      Top = 80
      Width = 241
      Height = 17
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      EditLabel.Width = 102
      EditLabel.Height = 13
      EditLabel.Caption = 'Program Update URL'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 1
    end
    object LabeledEdit1: TLabeledEdit
      Left = 16
      Top = 40
      Width = 121
      Height = 17
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Color = clSilver
      EditLabel.Width = 35
      EditLabel.Height = 13
      EditLabel.Caption = 'Version'
      LabelPosition = lpAbove
      LabelSpacing = 3
      ReadOnly = True
      TabOrder = 0
    end
    object LabeledEdit3: TLabeledEdit
      Left = 152
      Top = 40
      Width = 121
      Height = 17
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Color = clSilver
      EditLabel.Width = 61
      EditLabel.Height = 13
      EditLabel.Caption = 'Update Date'
      LabelPosition = lpAbove
      LabelSpacing = 3
      ReadOnly = True
      TabOrder = 2
    end
  end
  object Button1: TButton
    Left = 32
    Top = 264
    Width = 113
    Height = 25
    Caption = '&Check Version'
    Default = True
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 216
    Top = 264
    Width = 89
    Height = 25
    Caption = '&About'
    TabOrder = 2
    OnClick = Button2Click
  end
  object GroupBox1: TGroupBox
    Left = 176
    Top = 8
    Width = 289
    Height = 113
    Caption = 'Original Information'
    TabOrder = 3
    object LabeledEdit4: TLabeledEdit
      Left = 16
      Top = 40
      Width = 121
      Height = 17
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Color = clSilver
      EditLabel.Width = 35
      EditLabel.Height = 13
      EditLabel.Caption = 'Version'
      LabelPosition = lpAbove
      LabelSpacing = 3
      ReadOnly = True
      TabOrder = 0
      Text = '1.00.000'
    end
    object LabeledEdit5: TLabeledEdit
      Left = 16
      Top = 80
      Width = 257
      Height = 17
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      EditLabel.Width = 134
      EditLabel.Height = 13
      EditLabel.Caption = 'Update Information File URL'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 1
      Text = 'http://localhost/webs/delphibox/update.txt'
    end
    object LabeledEdit6: TLabeledEdit
      Left = 152
      Top = 40
      Width = 121
      Height = 17
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Color = clSilver
      EditLabel.Width = 61
      EditLabel.Height = 13
      EditLabel.Caption = 'Update Date'
      LabelPosition = lpAbove
      LabelSpacing = 3
      ReadOnly = True
      TabOrder = 2
      Text = '2002-2-11'
    end
  end
  object Button3: TButton
    Left = 352
    Top = 264
    Width = 89
    Height = 25
    Caption = 'E&xit'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Memo1: TMemo
    Left = 16
    Top = 16
    Width = 145
    Height = 233
    BevelInner = bvNone
    BevelOuter = bvNone
    Color = clSilver
    ScrollBars = ssBoth
    TabOrder = 5
    WordWrap = False
  end
  object NMHTTP1: TNMHTTP
    Port = 0
    ReportLevel = 0
    OnDisconnect = NMHTTP1Disconnect
    OnConnect = NMHTTP1Connect
    OnHostResolved = NMHTTP1HostResolved
    OnStatus = NMHTTP1Status
    OnConnectionFailed = NMHTTP1ConnectionFailed
    Body = 'Default.htm'
    Header = 'Head.txt'
    InputFileMode = False
    OutputFileMode = False
    ProxyPort = 0
    Left = 168
    Top = 264
  end
end