1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

//uses UdpConst;

var
  AData: PUpdateSettings;
begin
  New(AData);
  AData^.UpdateMode := upmCheck;
  AData^.DownloadURL := 'http://private.hippieclan.net/update.ini';
  AData^.ProgramName := 'Rep-Ex';
  AData^.CurrentVersion := 0;
  AData^.MainHandle := 0;
  AData^.CallBackFunc := nil;
  AData^.CallBackData := nil;
  AData^.WindowSettings := nil;
  AData^.StartUpdate := True;
  AData^.FreeMemory := True;
  UpdateDoUpdate('update.dll', AData);                    

1:
2:
3:
4:
5:
6:

  PWindowSettings = ^TWindowSettings;
  TWindowSettings = packed record
    ShowWindow: Boolean;                //show the progress window
    CloseWindowWhenFinished: Boolean;   //close progress window when operation is finished
    X, Y: Integer;                      //-1 for screen middle
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

  UPDATE_START = 1;              //AData2 = null
  UPDATE_WINDOW_CREATE = 2;      //AData2 = WindowHandle (THandle)
  UPDATE_CONNECT_INTERNET = 3;   //AData2 = OpenUrlHandle (HINTERNET)
  UPDATE_DOWNLOAD_TEMPFILE = 4;  //AData2 = TempFileName (PChar)
  UPDATE_DOWNLOAD_FILESIZE = 5;  //AData2 = FileSize (Integer)
  UPDATE_DOWNLOAD_START = 6;     //AData2 = ID of File (Integer)
  UPDATE_DOWNLOAD_PROGRESS = 7;  //AData2 = Bytes downloaded (Integer)
  UPDATE_DOWNLOAD_FINISHED = 8;  //AData2 = ID of File (Integer)
  UPDATE_READ_SETTINGS = 9;      //AData2 = null
  UPDATE_GET_FILE_COUNT = 10;    //AData2 = FileCount of files to download (Integer)
  UPDATE_FOUND_VERSION = 11;     //AData2 = True if new version available (Boolean)
  UPDATE_ABORT = 12;             //AData2 = ID of file in process when aborted (Integer)
  UPDATE_ERROR = 13;             //AData2 = error id (Integer)
  UPDATE_WINDOW_CLOSE = 14;      //AData2 = WindowHandle (THandle)
  UPDATE_WINDOW_DESTROY = 15;    //AData2 = WindowHandle (THandle)
  UPDATE_FINISHED = 16;          //AData2 = WindowHandle (THandle)
  UPDATE_END = 17;               //Adata2 = True if not aborted and no error occured (Boolean)
  //Ids
  UPDATE_CHECK_VERSION = 0;
  UPDATE_DO_UPDATE = 1;                    

1:
2:
3:

[program]
version=1
file=URLTOFILETODOWNLOAD