Скрипты Inno Setup. Помощь и советы [часть 4]

[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]

Кто знает сайтик где есть готовые скрипты инсталлеров? »А зачем тебе, не есть гуд брать чужие готовые скрипты, или не судьба хотя бы по примерам самому сваять что ли? Естественно сначала уйдёт время на создание своего скрипта, но это зависит от индивидуальности. Например здесь (http://forum.oszone.net/thread-218969.html) в первом посте под спойлером Показать/скрыть: Ссылки на примеры скриптов: есть готовые примеры, остальное что не понятно можно спросить здесь (http://forum.oszone.net/thread-218969.html) же. А так же на ru-board (http://forum.ru-board.com/), от 1 части (http://forum.ru-board.com/topic.cgi?forum=5&topic=4801), и до 14 части (http://forum.ru-board.com/topic.cgi?forum=5&topic=36421).

[StarClock]

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

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

StarClock, в шапке Ultimate Black

если кому надо - определение фреймворков
function netfw35(): Boolean;
begin
if ( RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5') )
then Result := True else Result := False;
end;

function netfw4(): Boolean;
begin
if ( RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client') )
then Result := True else Result := False;
end;

[StarClock]

Мне бы желательно типо такого стиль http://cs4560.vkontakte.ru/u63041931/114929891/x_6498b93f.jpg

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

StarClock, инсталлер должен порхать как бабочка и жалить как пчела!
а ты рюшечками увлекаешься...

[StarClock]

R.i.m.s.k.y., Не понял.

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

StarClock, инсталлер должен быть функциональным, надежным и безглючным
Единственная его цель - правильно поставить и корректно все удалить, не тронув лишнего.
Обвешивая его картинками и прочим глямуром ты резко понижаешь его надежность и переносимость разных систем.
Доказательства - на руторе в раздаче игр.

[StarClock]

R.i.m.s.k.y., Я всё равно хочу этот стиль? У тебя он есть? Если есть дай будь добр

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

StarClock, нет, стили я не коллекционирую
Коллекционер у нас Лександр с сайтом http://innoultra.ru/

[Gnom_aka_Lexander]

Стили я держу тут: Скачать (http://webpluton.ifolder.ru/22633839) Tyger (который на скрине) там тоже есть. Лександер, Спасибо. R.i.m.s.k.y., Спасибо » Постинг спасибов является нарушением правил форума, для того мудрое рководство и придумало кнопочку - Полезное сообщение.

[StarClock]

Лександер, Спасибо. R.i.m.s.k.y., Спасибо

[StarClock]

Лександер, А как их в установочник вставить? :D