Создание архивных копий базы

[SunnyCrash]

В интернете (http://pblog.ru/lab/?p=360) нашел код где показано что копии будут создаваться после 5ти изменений в таблице но ничего не рработает может кто то поможет?

procedure LookDir(StartDir, Mask : String; List : TStringList);
var
SearchRec : TSearchRec;
begin
if Mask = '' then Mask := '*.*';
if StartDir[Length(StartDir)] <> '' then StartDir := StartDir + '\';
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory) <> faDirectory then
begin
List.Add(StartDir+SearchRec.Name);
end
else
if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then LookDir(StartDir + SearchRec.Name + '', Mask, List);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

procedure BackUpBD;
var
path1,path2,fname:string;
i,colfiles:integer;
lst:tstringlist;
begin
colfiles:=5;//количество хранимых последних версий файла
path1:=extractfilepath(application.ExeName);
path2:=extractfilepath(application.ExeName)+'BackUpBD\';
if not DirectoryExists(path2) then MkDir(path2);
fname:=path2+formatdatetime('yyyy-mm-dd hh-nn-ss',now)+'-BD.mdb.back';
//BD.mdb - имя файла вашей БД
if copyfile(PChar(path1+'BD.mdb'),PChar(fname),false) = true then
begin
lst := TStringList.Create;
LookDir(path2, '*.back', lst);

if Lst.Count>colfiles then
for i:= 0 to Lst.Count - colfiles-1 do deletefile(lst.Strings[i]);

lst.Free;
end
else
showmessage('Файл с БД не найден!');
end;

может кто то покажет исходник рабочий?

[Dark_Spirit]

а не проще сделать архивацию после того как пользователь закончил работу с программой?

[SunnyCrash]

Есть реализация ?или исходник

[Dark_Spirit]

например на событие формы OnCLoseQuery повесить такой код:

  var
    param1, param2:string;
  begin
    param1:='a -agYYYYMMDD-NN -m5 -inul d:\arxiv\baza_';
    param2:='<полный путь к базе>';
    shellexecute(0, 'open', 'winrar', PChar(param1+' '+param2), nil, sw_show);
  end;

как бы так.
<полный путь к базе> - попробуйте узнать через свойства вашего объекта которым подключаетесь к базе.
param1 - строка ключей для архиватора winrar(всё есть в хелпе)

[SunnyCrash]

Решил попробывать как сказано выше ничего не создает
Вин рар запускаеться но не архивирует(

[Streletz]

WinRar имеет консольную версию. Попробуйте архивировать с её помощью через консольные команды.
В помощь: Консольные команды winrar

[SunnyCrash]

Ребята было бы хорошо если бы вы мне показали бы исходник, ну хоть один робочий
Решил не лентяйничать и сделать)

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
a,b: PChar;
begin
a := Pchar('D:\dddd.rar');  //создает архив под названием дддд
b:=Pchar('D:\1\*.*');  // папка с которой берет файлы, для использования нужен ShellApi 
ShellExecute(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b),  nil,  SW_SHOW);
end;

так работает
Спасибо Dark_Spirit