Почему бы не размяться, не всё ж с базами возиться :)
Я предлагаю не писать в реестр, а в папках, которые были уже архивированы, создавать файл backup.info (можно даже пустой, но проще писать в него, на всякий случай что-то, относящееся к архивированию).
Итак:
// возвращает разницу между временем создания файла или папки и текущим, в неполных днях
function GetFileOrFolderCreationDifference(attr:integer;myfolder:string):integer;
var
ft: TFileTime;
st: TSystemTime;
dt: TDateTime;
sr: TSearchRec;
begin
if FindFirst(myfolder, attr, Sr) = 0 then
begin
ft:=sr.FindData.ftCreationTime;
System.SysUtils.FindClose(sr);
FileTimeToSystemTime(ft, st);
dt:=SystemTimeToDateTime(st);
Result:=DaysBetween(Tomorrow,dt); // я использую Tomorrow, чтобы получить неполные 20 дней на сегодня, если нужно полные - используйте Today
end
else
begin
// обработка, если папки или файла не существует, либо проблемы с ней
end;
end;
//непосредственно процедура бэкапа
procedure Backup(path:string);
var
sr: TSearchRec;
f:TextFile;
filename:string;
begin
if FindFirst(path + '\*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory) <> 0 then // если найденный файл - папка
begin
if (sr.Name <> '.') and (sr.Name <> '..') then // на всякий случай игнорируем служебные папки
begin
if (GetFileOrFolderCreationDifference(faDirectory,path+'\'+sr.Name) mod 20) = 0 then // кратность разницы дат
begin
filename:=path+'\'+sr.Name+'\backup.info';
if FileExists(filename) then // проверяем существование файла backup.info
begin
if GetFileOreCreationDifference(faNormal,filename) >= 20 then // насколько старый файл backup.info
begin
Backup_now(vars); // ваша процедура бэкапа
AssignFile(f,filename);
Rewrite(f);
writeln(f,'Бэкап сделан ' + DateTimeToStr(Now));
CloseFile(f);
end;
end
else
begin
Backup_now(vars); // ваша процедура бэкапа
AssignFile(f,filename);
Rewrite(f);
writeln(f,'Бэкап сделан ' + DateTimeToStr(Now));
CloseFile(f);
end;
end
end;
end;
until FindNext(sr) <> 0;
end;
System.SysUtils.FindClose(sr);
end;
Ну, и вызов, например, так:
Backup('H:\Projects');