Component Name: TSchUpdater
        Author: Snuki
 Creation Date: 2006.01.29.
       Version: 1.3
   Description: Simple application self-updater
        E-mail: snuki@freemail.hu
       Website: http://www.snuki.hu
  Legal Issues: All rigths reserved 1996-2005 by Snuki
  Thanks for help to:
    A.Falanga (a.falanga@gmail.com)
    bsalsa (bsalsa@bsalsa.no-ip.info)

This component is FREEWARE!

Usage:
  1: Fill the SourceDir directory (wathever if exists ending '\' or not)
  2: Call DoUpdate function (result: true=OK, false=failed)

Properties:
  - AutoRestartApp: boolean
    if you want to restart your application automatically after update
    then set it True, otherwise false.
    Recommended leave it True.
  - Language: TSchSimpleUpdaterLanguage
    English, Hungarian, French
    You can add other languages, jast add it to TSchSimpleUpdaterLanguage,
    and change the content of ErrorHandle procedure
  - OtherFiles: TStringList
    (Ignore the duplicates and case insensitive)
    If you want to update not just exe, then add to here the other filenames
    (without path). You can use the AddOtherFile procedure or OtherFiles.Add method.
  - SaveDir: string
    If you checked the SaveOriginalFiles, then DoUpdate save all of exists files
    (exe and OtherFiles) to the %SAVEDIR%\%YYYYMMDDHHMMSS% directory.
    If SaveDir is empty and you checked the SaveOriginalFiles then SaveDir default
    is %APPDIR%\PRGBACKUP\%YYYYMMDDHHMMSS% directory.
  - SaveOriginalFiles: boolean;
    If you want to save the original files before update, then set it true.
  - StopOnFirstError: boolean
    If you want to stop the update procedure on the first dir create or copy error,
    then set it true.
    See error list in TSchSimpleUpdaterError.
  - UpdateSrc: string
    You have to set this property. This is the directory of new updated files
    (the source). Wathever if exists ending '\' or not.

Event:
  - OnError(Sender: TObject; ErrorCode: TSchSimpleUpdaterError;
                    Parameter, ErrMessage: string);
    All of procedure messages have sent to this event. In the Parameter
    you get the file or directory name if it's.

Procedures/functions:
  - AddOtherFile(OtherFileName: string): Integer;
    Add OtherFileName to the OtherFiles, if is not empty.
  - DoUpdate: Boolean
    Let's go!

