BackUp по выключению ПК или когда?

[Alex Cones]

Скрестил командную строку и дельфи во избежание *нальных кар со стороны жесткого диска. Поросту говоря, сотворил следующее:

7z.exe a %DATE%.7z D:\Finder
Move %DATE%.7z D:\Copy\Finder\
Cd D:\Copy\Finder
Renamer %DATE%.7z
Pause

Program Renamer;

Uses
  Windows, SysUtils;

Var
 Name1, Name2,S : String;
 I : Integer;
Begin
 Name1 := ParamStr(1);
 S := Name1;
 Name2 := '';
 While Pos('\',S)<>0 Do
  Begin
   Name2 := Name2 + S[1];
   Delete(S,1,1);
  End;
 Name2 := TimeToStr(Time) + '_' + S;
 For I := 1 To Length(Name2) Do
  If Name2[I] = ':' Then Name2[I] := '.';
 RenameFile(Name1, Name2);
end.

В общем всем, понятно, что происходит после запуска батника: (особо непонятливым курить ctrl+a) архивация папки с проектом, перенос проекта в папку с бекапами и переименование оного по системному времени (дату приписывает батник).

Все это меня устраивает, не устраивает только одно - я сам (точнее моя забывчивость). Забываю после работы с лазарем жмакнуть по ярлыку на батник. По этому прошу совета, как мне поступить - создать резидента, который будет отслеживать завершение Лазаря и автоматом будет производить архивацию или придумать более извращенные методы.

P.S. Если так подумать, то у меня получился "лишайник" - полу гриб, полу водоросль (Дельфи/Бат).

[raxp]

ммм... а ты под виндой или в wine? если под первым, есть вариант отслеживать изменения в файлах и бэкапить, можно еще настроить системную утилитку ntbackup, что она отслеживала и бэкапила.

...ну, или все таки резидента на лазаря

[Alex Cones]

Под виндой, я заюзал WinAPI.

есть вариант отслеживать изменения в файлах

А если новые модули добвляться будут? Каждый раз менять программу?

можно еще настроить системную утилитку ntbackup, что она отслеживала и бэкапила.

Хде оно и как это работает?

[raxp]

А если новые модули добвляться будут? Каждый раз менять программу?

настроить на изменения в каталоге.

...пуск-выполнить-ntbackup

[Alex Cones]

Спасибо, хорошая статья. Правда все же, я считаю, что в данном случае использование своей программы, настроенной на закрытие проекта в Лазаре будет более оптимальным, нежели распланированная архивация - ведь я могу изменять проект несколько раз в день, а запланировать её таким образом будет достаточно проблематично (а если использовать планировщик винды, то он может несколько раз срабатывать зря, если измененений не было).

[Alex Cones]

Нарисовал резидента, кому может пригодиться, выкладываю код:

program Watcher;

uses
  ShellAPI, {SysUtils,} Windows;

Var
 Look   : Boolean = FALSE;
 Gotcha : Boolean = FALSE;
 Hand   : Integer;
Begin
 While True Do
  Begin
   (* Search for Lazarus *)
   Hand := 0;
   Hand := FindWindow('Window','Lazarus IDE v0.9.28.2 бета - Finder.lpi');
   Gotcha := (Hand <> 0);
   If (Look) And Not(Gotcha) Then
    Begin
     ShellExecute(0,'Open','D:\Programs\7-Zip\Arc.bat', Nil, Nil, SW_HIDE);
     Look := FALSE;
    End
   Else
    If Not(Look) And (Gotcha) Then
     Begin
      Look := TRUE;
     End;
   Sleep(10 * 1000);
  End;
End.

Не забыть поставить в автозагрузку.

[raxp]

Спасибо, хорошая статья. Правда все же, я считаю, что в данном случае использование своей программы, настроенной на закрытие проекта в Лазаре будет более оптимальным

так я ж и не был против

...ну, или все таки резидента на лазаря

...за планировщик речь не идет, сервис сам будет отслеживать изменения, в принципе тот же резидент