main.dfm

这是一套全面的网络组件

object WebUpdateMainAppForm: TWebUpdateMainAppForm
  Left = 247
  Top = 114
  Width = 460
  Height = 332
  Caption = 'Web Update Main Application'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 452
    Height = 278
    Align = alClient
    Lines.Strings = (
      'This is a main application executable.'
      
        'Please click on the "Check Updates" menu item in order to run th' +
        'e updating process.'
      ''
      
        'Currently there are two xml files and also the MainApp.exe are a' +
        'vailable for updating.'
      ''
      
        'After the update process done, the Updater.exe closes MainApp.ex' +
        'e and '
      'updates it.'
      ''
      
        'Before running this sample, please open IIS Server Manager withi' +
        'n the'
      
        'Administrative Tools and create new "webupdateftp" virtual FTP d' +
        'irectory.'
      
        'Next, create the "CleverTester" ftp user with "clevertester" pas' +
        'sword'
      'within the User Accounts.'
      ''
      
        'After that please copy all files from the "ftp" subfolder to the' +
        ' "webupdateftp" virtual directory.'
      ''
      
        'You can use any other FTP (or HTTP) server, but in such a case y' +
        'ou need'
      
        'to modify settings of the TclWebUpdate component and also the up' +
        'date.xml content.')
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 392
    Top = 88
    object File1: TMenuItem
      Caption = 'File'
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object CheckUpdates1: TMenuItem
      Caption = 'Check Updates'
      OnClick = CheckUpdates1Click
    end
  end
end