//**********************************************************
// Check for updates
//**********************************************************
procedure TMainForm.CheckForupdates;
Begin
LazAutoUpdate1.ProjectType:=auOther;
LazAutoUpdate1.auOtherSourceURL := 'http:\\www.foreningsprogram.dk\updates';
LazAutoUpdate1.auOtherSourceFilename:='holbaekupdate.zip';
LazAutoUpdate1.SFProjectName:=''; // Dummy
LazAutoUpdate1.VersionsININame:='versions.ini';
LazAutoUpdate1.ZipfileName:='holbaek.zip';
LazAutoUpdate1.CopyTree:=False;
LazAutoUpdate1.ShowDialogs:=True;
LazAutoUpdate1.DebugMode:=True;
LazAutoUpdate1.UpdatesFolder:='updates';
LazAutoUpdate1.VersionsININame:='versions.ini';
If LazAutoUpdate1.NewVersionAvailable Then
MessageDlg(Application.Title, 'A new version of ' + Application.Title +
' is available.' + LineEnding +
'Click ''Check for new version'' in Help menu to update', mtConfirmation,
[mbOK], 0);
end;