[vitl]

Procedure backUp(); begin ChangeCaption('BackUp') If DirExists (DriveLetter +':\'+'Settings\Client\') then copyfiles(DriveLetter +':\'+'Settings\Client\', DriveLetter +':\'+'Backup\'+GetDateTimeString('YYYYMMDD_hh:nn:ss', '-', '-')+'\Settings\Client\'); if DirExists (DriveLetter +':\'+'utils\') then copyfiles(DriveLetter +':\'+'utils\', DriveLetter +':\'+'Backup\'+GetDateTimeString('YYYYMMDD_hh:nn:ss', '-', '-')+'\utils\'); end; »

Данный код отлично работает, если бэкапятся мелкие файлы. Но когда файлы большие, то тогда создается 2 (две) папки: 'Backup\2012-02-20_12-10-10\Settings\Client\' и 'Backup\2012-02-20_12-11-22\utils\',
а нужно, чтобы папки utils\ и Settings\Client\ создавались в одном бэкапе
'Backup\2012-02-20_12-10-10\Settings\Client\' и 'Backup\2012-02-20_12-10-10\utils\'

Может можно как-то в начале процедуры задать для папки бэкапа переменную (на 'YYYYMMDD_hh:nn:ss'), а потом ниже ее подставлять, примерно так:
...+'Backup\'+'переменная_с_именем_папки_с_датой'+'\Settings\Client\');

Или есть более оптимальный выход?

Подскажите, пожалуйста, как оптимизировать код.

[R.i.m.s.k.y.]

vitl,

Код:

Procedure backUp();
var datetime : string;
begin
ChangeCaption('BackUp');
datetime := GetDateTimeString('YYYYMMDD_hh:nn:ss', '-', '-');
If DirExists (DriveLetter +':\'+'Settings\Client\') then copyfiles(DriveLetter +':\'+'Settings\Client\', DriveLetter +':\'+'Backup\'+datetime +'\Settings\Client\');
if DirExists (DriveLetter +':\'+'utils\') then copyfiles(DriveLetter +':\'+'utils\', DriveLetter +':\'+'Backup\'+datetime +'\utils\');
end; »

[Dirk Diggler]

В инсталляторе надо проверить, установлен ли Microsoft Visual C++ 2008 SP1 Redistributable Package, и соот-щим образом сформировать список компонентов. Вопрос - как лучше это сделать? Куда смотреть?

[R.i.m.s.k.y.]

Dirk Diggler, я проверяю вот так

Код:

Function isvcredist():boolean;
var b1,b2,b3 : boolean;
begin
  if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\DevDiv\VC\Servicing\9.0\RED') then b1 := True;
  if IsWin64 then begin
    if RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\DevDiv\VC\Servicing\9.0\RED') then b2 := True;
    if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\DevDiv\VC\Servicing\9.0\RED') then b3 := True;
  end;
  if (b1 or b2 or b3) then Result := True else Result := False;
end;

[Dirk Diggler]

Благодарю. Расширил путь до SP1, рабоатет. А как перенос каретки сделать в сообщении?

[R.i.m.s.k.y.]

Dirk Diggler
перенос каретки #10, c новой строкой #13#10

[Ivan_009]

Как удалить данный текст подскажите пожалуйста

[nik1967]

Ivan_009, а вот как ты думаешь, с одним скриптом без файлов, много народу найдётся тебе помочь?

[Devils Night]

Кто знает сайтик где есть готовые скрипты инсталлеров? »

А зачем тебе, не есть гуд брать чужие готовые скрипты, или не судьба хотя бы по примерам самому сваять что ли? Естественно сначала уйдёт время на создание своего скрипта, но это зависит от индивидуальности. Например здесь в первом посте под спойлером Показать/скрыть: Ссылки на примеры скриптов: есть готовые примеры, остальное что не понятно можно спросить здесь же. А так же на ru-board, от 1 части, и до 14 части.

[StarClock]

Ребят. Скиньте пожалуйста прикольный стиль. Желательно чёрный