Updater for software

procedure CheckAndUpdate( AShowIfNotFound: boolean );
// проверить обновления и обновить
var
  tmpNewVersion:string;
begin
  case CheckNewVersion(tmpNewVersion) of
  CU_ERROR: ShowMessage( S_.UPD_ERROR.Caption ); // общая ошибка
  CU_NEW_VERSION_AVALIABLE: begin // доступна новая версия, доступно автообновление
    if MessageBox( Format( S_.UPD_NEW_VER.Caption, [tmpNewVersion] ), S_.INFORMATION.Caption, MB_YESNO + MB_ICONINFORMATION ) = IDYES then
      GetNewVersion(tmpNewVersion);
  end;
  CU_NO_UPDATES_FOUND: if AShowIfNotFound then ShowMessage( S_.UPD_NO_UPDATES_FOUND.Caption ); // обновления не найдены
  CU_MANUAL_UPDATE: begin // ручное обновление
    if MessageBox( Format( S_.UPD_MANUAL_UPDATE.Caption, [tmpNewVersion] ), S_.INFORMATION.Caption, MB_YESNO + MB_ICONINFORMATION ) = IDYES then
        OpenURL( S_.ACT_URL_HELP.Caption ); // возможно, понадобится отдельный ресурс, пока используется один и тот, же, что для описания программы
  end;
  CU_CHECK_INTERNET:ShowMessage( S_.UPD_CHECK_CONNECTION.Caption ); // нет соединения с сайтом
  end;
end;

function CheckNewVersion(var ANewVersion:string ): integer;
// проверка наличия новой версии. извлечение номера новой версии
var
  tmpFile: string; // для загрузки описания обновления
  tmpList: TStringList; // сценарий обновления
  tmpBuld: string; // последний релиз
  tmpCompVer: array of string; // список версий, с которыми совместима последняя версия
  i: integer;
  tmpCurVer: string;
  tmpURL: string;
begin
  Result := CU_ERROR;
  tmpCurVer := APP_VERSION+'.'+APP_BUILD; // текущая версия приложения
  tmpFile := GetTmpFileName('.txt');
  try
    //
    if DebugMode then
      tmpURL := URL_DEBUG_DOWNLOAD + UPDATE_SCENARIO_FILENAME
    else
      tmpURL := URL_DOWNLOAD + UPDATE_SCENARIO_FILENAME;
    // скачать файл с описанием обновления
    try
      HTTPGetFile(tmpURL, tmpFile, True );
    except
      Result := CU_CHECK_INTERNET;
      exit;
    end;
    tmpList := TStringList.Create;
    tmpList.LoadFromFile(tmpFile);
    ANewVersion := tmpList.Values( UT_LAST_VERSION ); // версия в формате <Major>.<Minor>.<Build>
    //
    tmpBuld := ANewVersion;
    delete(tmpBuld,1,pos('.',tmpBuld ));
    delete(tmpBuld,1,pos('.',tmpBuld ));
    // сравниваем билды
    if StrToInt(tmpBuld) > StrToInt(APP_BUILD) then
    begin // найдена новая версия
      Result := CU_MANUAL_UPDATE;
      tmpCompVer := SplitString( tmpList.Values( UT_COMPATIBLE_VERSIONS ), ',' );
      for i := 0 to Length(tmpCompVer) - 1 do
        if tmpCompVer[i] = tmpCurVer then
        begin
          Result := CU_NEW_VERSION_AVALIABLE; // версия может быть загружена автоматически
          break;
        end;
    end
    else
      Result := CU_NO_UPDATES_FOUND; // ничего не найдено
    // зачистка
    tmpList.Free
    //
  finally
    DeleteFile(tmpFile); // удалить временный
  end;
end;