execute ibeblock
as
begin
  CurrentDate = ibec_Date();
  reg = ibec_reg_Open(__HKEY_CURRENT_USER, 0);
  try
    if (ibec_reg_OpenKey(reg, 'Software\HK Software\IBExpert\CurrentData', FALSE)) then
    begin
      try
        UDBLastBackupDate = ibec_reg_ReadDate(reg, 'UDBLastBackupDate');
        if (UDBLastBackupDate = CurrentDate) then
          Exit;
      except
      end;
      UDBConnectString = ibec_reg_ReadString(reg, 'UDBConnectString');
      UDBClientLib = ibec_reg_ReadString(reg, 'UDBClientLib');
      UDBUserName = ibec_reg_ReadString(reg, 'UDBUserName');
      UDBPassword = ibec_reg_ReadString(reg, 'UDBPassword');
    end
  finally
    ibec_reg_Close(reg);
  end;

  if ((UDBConnectString is null) or (UDBConnectString = '')) then
    Exit;

  ibec_Progress('Starting backup of IBExpert User Database...');
  BackupDir = 'D:\Backups\IBExpert User Database\';
  ibec_ForceDirectories(BackupDir);


  ibec_DecodeDate(CurrentDate, iYear, iMonth, iDay);
  BackupFileName = BackupDir || iDay || '-' || iMonth || '-' || iYear || '.fbk';


  res = ibec_BackupDatabase(UDBConnectString, BackupFileName,
                            'ClientLib=' || UDBClientLib || '; Password=' ||
                                UDBPassword || '; User=' || UDBUserName,
                            null);

  if (ibec_FileExists(BackupFileName)) then
  begin
    ibec_Progress('Compressing ' || BackupFileName || '...');
    res = ibec_Exec('"C:\Program Files\WinRAR\rar.exe" a "' || BackupFileName || '.rar" "' ||
                    BackupFileName || '" -m5 -ri1', '', null);
    if (res = 0) then
      ibec_DeleteFile(BackupFileName);
  end

  if (res = 0) then
  begin
    reg = ibec_reg_Open(__HKEY_CURRENT_USER, 0);
    try
      if (ibec_reg_OpenKey(reg, 'Software\HK Software\IBExpert\CurrentData', FALSE)) then
        ibec_reg_WriteDate(reg, 'UDBLastBackupDate', CurrentDate);
    finally
      ibec_reg_Close(reg);
    end;
  end
end;