unit1.~dfm

实现自制的程序的自动升级

object Form1: TForm1
  Left = 306
  Top = 220
  BorderStyle = bsSingle
  Caption = #33258#21160#21319#32423
  ClientHeight = 177
  ClientWidth = 505
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Edit1: TEdit
    Left = 8
    Top = 8
    Width = 489
    Height = 21
    TabOrder = 0
    Text = 'http://www.zntel.com.cn/updata/netsms.exe'
  end
  object b1: TButton
    Left = 8
    Top = 72
    Width = 145
    Height = 57
    Caption = #19979#36733
    TabOrder = 1
    OnClick = b1Click
  end
  object Edit2: TEdit
    Left = 8
    Top = 40
    Width = 489
    Height = 21
    TabOrder = 2
    Text = 'd:\netsms.exe'
  end
  object pb: TProgressBar
    Left = 0
    Top = 136
    Width = 497
    Height = 33
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnMouseUp = pbMouseUp
  end
  object b2: TButton
    Left = 160
    Top = 72
    Width = 161
    Height = 57
    Caption = #20013#26029
    TabOrder = 4
    OnClick = b2Click
  end
  object b3: TButton
    Left = 328
    Top = 72
    Width = 169
    Height = 57
    Caption = #19981#37325#21551#32487#32493
    TabOrder = 5
    OnClick = b3Click
  end
  object TrayIcon1: TTrayIcon
    Hide = True
    RestoreOn = imNone
    PopupMenuOn = imNone
    IconIndex = 0
    Left = 312
    Top = 16
  end
end